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Laver du gode 
programmer? 
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Sm<S eller store, sjo ve oiler 
seriose til do populate com- 
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putere? 

Sd vilvl meget gome vise dem 1 
"Alt om Data" eUer "Solt" 
magasinerne. 

Husk, vl giver op til 1.000 kroner 
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skattetrlt tor et rlgtlgt godt pro¬ 
gram. Send kassette eller disc 
og geme en udllstning med en 

Ulle programlorklarlng og en 
irankeret returkuvert til: 
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St. Kongensgade 72, 
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Ian Sinclair 

Bogen om Commodore 64 

En grundig og inspirerende bog for 
alle Commodore 64 brugere. Bogen 
er et uundvaerligt vasrktoj, der hel¬ 
per Isseren til at fa det fulde udbytte 
af denne enestSende computer 

148 sider, 

kr. 145,-inkl. moms. 

Owen Bishop 

Fa mere ud af din VIC 20 

Alt om. hvordan man far mere ud af 
sin VIC 20: hvordan man laerer at 
bruge VIC BASIC mest effektivt. at 
beherske levende farvegrafik. at 
skabe specielle lydeffekter etc. 

217 sider, 

kr. 169,- inkl. moms. 


Garry Marshall 
Programmering med grafik 

En praktisk og klar introduktion til at 
programmere med grafik. Bogen 
forklarer principperne bag udviklin- 
gen af skaermbilleder og demon- 
strerer blok- pixel- og liniegrafik. 

156 sider. 

kr. 139.- inkl. moms. 

David Barrow og Alan Tootill 
Z80 programmering 

I bogen gennemgas omhyggeligt. 
hvordan maskinkodeprogrammering 
foregar. og maskinkodning illustre- 
res gennem spsendende eksempler. 

185 sider. 

kr. 179.- inkl. moms. 


Mike James 
Bliv bedre til BASIC 

For dem, der i forvejen har kend- 
skab til BASIC, men gerne vil lare 
at udnytte sproget mest muligt 
gennem mere avancerede program- 
meringsteknikker. 

166 sider, 

kr. 139,- inkl. moms. 
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Stregen skal starte heroppe. 
Ikke? 


4.b programmerer 


Pa Rismalle- 
skolen i Pan¬ 
ders foregar et 
meget spsen- 
dende forsog 
med computer- 
styret under- 
visning. Elever i 
4b laerer ge- 
ometri ved 
hjaelp af LOGO 
programspro- 
get. 



Eksempel pa de geometri- 
ske figurer, 4B far tryllet 
fretn ved hjaelp af LOGO. 


■ Man skulle tro, det var logn. 
Men tirsdag og fredag er laarer 
Fritz Knudsen nodt til at mode 
10 minutter for dagens forste 
time. Arsagen? 

Eleverne st&r udenfor og vil 
ind! 

Og det er ikke, fordi han giver 
dem slik og tegneserier eller 
noget lignende. Det er, fordi 
eleverne vil igang med at ar- 
bejde. "Arbejde" er m&ske for 
meget sagt, for det er nsermest 
en leg at programmere med 
LOGO. 

Neir eleverne endelig f&r lov at 
komme ind, g4r de straks hen 
og finder deres personlige di¬ 
skette, hvor deres egne pro¬ 
grammer opbevares. Sa saetter 


► 
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de sig hen og starter systemet 
op. 

Der stir 4 Regnecentralen Pic¬ 
colo i skolens bibliotek, hvor 
forsogstimerne foregar. Ele- 
verne arbejder i grupper pi 2 
eller 3. Sjovt nok er eleverne 
nodt til at sporge en voksen, 
hvilken dato det er. For den 
skal de starte med at taste ind. 
Derefter er de bare pi hjem- 
mebane. Man lister lige tit- 
lerne pi de faerdige program¬ 
mer og vaelger miske at hive 
et frem for at lave det lidt om. I 
lobet af 3/4 undervisningsir 
har Knudsen kun udleveret 4 
A4-sider skriftligt materiale. 
Eleverne finder selv ud af at 
udvikle sig. 

Normalt forbinder man "data- 
matstottet undervisning" 
med, at computeren stiller 
sporgsmil til eleven, som si 
skal svare. Alt efter svaret, 
veelger computeren fortsaettel- 
sen pi undervisningsforlobet. 
Med LOGO er alt omvendt, 
fortaeller Fritz Knudsen. I 
LOGO er det eleven, der stiller 
sporgsmil til computeren. 
Eleven vaelger, hvad compute¬ 
ren skal udfore og definerer 
selv sine "vaerktojer" under- 
vejs. 

LOGO breder sig 

LOGO breder sig med storm- 
skridt over hele verden. Det er 
et sprog skabt specielt til 
born, men velegnet til mange 
formil. Ogsi voksne kan 
bruge det med udbytte. LO¬ 
GOS "skildpaddegrafik” er 


ometri - for at betegne denne 
levende geometri, og i Knud- 
sens 4. klasse haender det, at 
man mi ud pi gulvet at gi. 
Hvis eleverne ikke kan finde 
ud af, hvad det er, der gir gait 
i et program, eller ikke kan 
finde den rigtige losning pi et 
problem, si mi de ud pi gul¬ 
vet og gennemfore operati- 
onen med skridt. 

"Frem 5, til hojre 90, frem 5..." 
Si enkle er ordrerne i LOGO. 
"Skildpadden" pi skaermen 
kan forsti dem, og det kan et- 
hvert barn ogsi. 

Bedre til geometri 

4.b laerer i ojeblikket en masse 
geometri, som man ikke nod- 
vendigvis har de rigtige mate- 
matiske ord for. Men man har 
forstielsen for linjernes sam- 
menhaeng. Noget af det, vi si 
udfolde sig pi skaermene en 


Fritz Knudsen giver under- 
tiden en hjaelpende hind. 
Men det bliver sjaeldnere og 
sjaeldnere. 

fremragende. Ogsi i ir kon- 
staterer han, at elever, der 
normalt har svaert ved at klare 
sig, har det langt lettere med 
LOGO. 

Det er ikke altid den bedste 
elev til regning, der er bedst til 
LOGO-programmering. Ud- 
viklingen gir pi en lidt anden 
led. Der er f.eks. ogsi forskel 
pi piger og drenges mide at 
gribe tingene an pi. Man fir 
ikke Knudsen til at sige, hvem 
der er bedst. Det ligger lige- 
som i luften, nir Knudsen har 
LOGO med ungerne, at en- 
hver udvikler sig pi sin egen 
mide. 

Under timen gir laerer Knud¬ 
sen stille og roligt rundt og si- 
ger naermest ingenting. Svaret 


4.b programmerer 


blevet verdensberomt i sig 
selv. 

Principperne i skildpaddegra- 
fikken bruges nu ogsi i andre 
sprog, f.eks. Comal-80, og der 
udsendes LOGO-versioner, 
som ikke indeholder andet 
end skildpaddegrafikken. 
F.eks. Knudsens egen "Mikro- 
Logo”, som Regnecentralen 
saelger til Piccoloen. 

LOGO blev skabt pi MIT, - 
Massachusetts Institute of 
Technology - af bornepsyko- 
logen Seymour Papert. Det er 
baseret pi boms egen mide 
at opleve verden pi. I skolens 
traditionelle geometri har et 
punkt ingen retning. Det har 
det i LOGO, for det er spidsen 
af en bevaegelse. 

Papert anvender begrebet 
"body geometry” - kropsge- 


tidlig morgentime, var mere 
avanceret end det, vi havde i 
gymnasiet. "Rekursion" 

f.eks., hvor en figur ligesom 
gir ind i sig selv, er ret nemt at 
lave med LOGO. En enkelt 
vaks knaegt havde check pi 
det. 

- Der er stor forskel pi elever¬ 
ne. Nogle grupper eksperi- 
menterer vildt og vanvittigt og 
nir frem til flotte og gode ting, 
mens andre mere prover at rae- 
sonnere i noget, der ligner ma- 
tematisk analyse, fortaeller 
Fritz Knudsen. Begge metoder 
har deres berettigelse, og det 
er grupperne selv, der udvik¬ 
ler sig. 

Fritz Knudsen provede sidste 
ir LOGO med nogle elever, 
der havde vanskeligt ved at 
folge med, og resultatet var 


pi et sporgsmil fra en gruppe 
er typisk: "Det mi I selv be- 
stemme”, "Ja, prov at finde ud 
af det" eller "Find ud af, hvor 
det gik gait". 

Tit hidkaldes Knudsen ikke for 
at besvare sporgsmil, men for 
at han kan se de stolte elevers 
resultat pi skaermen - eller pa- 
pir. For eleverne laerer ogsi at 
printe og plotte, si de kan 
tage tegninger med hjem og 
vise deres foraeldre. 

Man kan virkelig maerke, at no¬ 
get er helt anderledes i 4.b's 
LOGO-timer. Der er en natur- 
lig koncentration i klassen, - 
akkurat som nir voksne be- 
skaeftiger sig med en hobby pi 
et aftenkursus. Der grines og 
ribes. Ja, men ikke i modstrid 
med undervisningen, men pi 
grand af de ting, der sker pi 


skaermene og i plotteren. Di- 
sciplinen er lige med arbejds- 
lysten. 

Enestaende i Danmark 

Forsogsundervisningen i 
Knudsens klasse er si vidt vi- 
des den eneste af sin slags 
herhjemme, skont interessen 
for LOGO er staerkt voksende. 
Knudsen har travlt ugen igen- 
nem som foredragsholder 
rundt omkring. Han er nodt til 
at sige nej. Si mange tilbud er 
der. 

Fritz Knudsen er en af pione- 
rerne herhjemme inden for 
omridet datamater og under¬ 
visning. I mere end 10 ir har 
han arbejdet med datamater i 
undervisningen. I begyndel- 
sen af og midt i 70'erne var det 
med besvaerligt og dyrt lejet 
udstyr. De sidste 4 ir har mi- 
kroerne gjort det hele nemme- 
re. 

Fritz Knudsen har lavet 
mange forskellige undervis- 
ningsforlob med datamater. I 
fysik har han lavet simulati- 
oner over kernereaktorer, sa- 
tellitter, miling af bolgelaeng- 
der for lys samt rumfart med 
meget store hastigheder. 
Sidstnaevnte simulation stil- 
lede 8.-9.-klasselever over for 
den pistand, at en rumrejsen- 
de, der rejser ud med en kon- 
stant accelleration pi stor- 
relse med tyngdekraften og 
kommer hjem efter at have 
rejst i 55 ir, finder en jord, der 
er 4 millioner ir aeldre!? Nogle 
elever benaegter vantro, andre 
ryster i stille forundring pi ho- 
vedet. Men i alle tilfaelde er det 
anskuelsesundervisning i Ein¬ 
steins relativitetsteori. 

Men det er nok arbejdet med 
LOGO, der optager Fritz 
Knudsen mest. "Det er ideelt 
at arbejde med LOGO", fortael¬ 
ler Knudsen. "Eleverne laver 
lige det, de har lyst til. De hol¬ 
der sig til noget, de selv kan 
overskue. Og de udvikler selv 
metoderne til problemlosnin- 
gerne. De arbejder i et lille uni- 
vers, en sikaldt mikro-verden, 
hvor de foler sig trygge. Derfor 
er LOGO si ideelt et middel i 
undervisning", siger Knud¬ 
sen. 

Og vores besog pi Rismolle- 
skolen bekraefter, at undervis¬ 
ning med datamater kan vaere 
kreativ og fornajelig. Datama¬ 
ter betyder ikke nadvendigvis 
"programmeret undervis¬ 
ning”. Det kan vaere eleverne, 
der programmerer compute¬ 
ren! □ Ole Griinba um 
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Med dette program kan du 
beregne, hvilke (rekvenser 
du skal henholdsvis sende og 
modtage med din radiosen¬ 
der (walkie talkie). Det sker ira 
det bind og den kanal, du 
onsker at sende/modtage pi. 
Programmet er meget let at 
gi til, lordi du blot skal indta- 
ste bind og kanal, si sorger 
programmet tor resten. 

NB! Du kan vcelge mellem 
bind A, B.C. D.E, Fog kanal 
1-40.□ 

Niels Mailer Hansen 
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1 0 

REM 

+ 

20 

REM 

* 

30 

REM 

•* 

40 

REM 

* 

50 

REM 

m 

60 

REM 

+ 

^0 

REM 

4t 

00 

REM 

* 

30 

REM 

•* 

1 00 


110 POKE 

120 INPUT 


BV NIELS M8LLER HHHSEN 


DK-BRHNBE 


110 POKE 33280.2:POKE 33281,0 

120 INPUT "(CLR.CRSR MED.OUL.CRSR H0JRE 

>1NDTRST DRNSK TIB <6 CIFRE) ' BI *_„ 

130 IF LEN<BI*)<>6 OR VHL<BI*>>233939 O 
R vflL<BI»)<0 THEM PRINT“<CRSR OP2> 

:OOTO 120 

130 RESTORE:PRIMT"<CLR.CRSR MED.CRSR HO 
JRE> INDTRST BR< CRSR OR. 

CRSR VENSTRE>.<CRSR MED>ND > 

160 GET B» ■ IF B*—"" THEM ISO 

170 IF B*-CHR«<13) OR RSC'B«I<63 OR RSC 

<B*>>70 OOTO ISO _ 

180 PRIMT B* FOR M—O TO 300 NEXT 

ISO INPUT "ICLR.CRSR MED.CRSR il0IRE)KRN 

H 200' IF KR<-0 OR Kfl>40 THEN 1S0 

210 FOR I —1 TO 40 READ T 1 IF KFI” I THEN 

T-T1*10 

220 NEXT I 

230 IF B* — THEM 1 OT-26065 

240 IF B*— •• B '• THEM OT = 26515 

230 IF THEM CT-26965 

260 IF B»—"D" THEM OT-27413 

270 IF B*-"E " THEM GT-27865 

200 IF B*- "F“ THEM OT—20313 _ 

290 PRINT"<CLR.L.BLRfi,CRSR NEDS.CRSR HO 

J 300 0 PRI MT"(CRSR H0JRE10) I <CRSR HOJRE,OR 
BR3)"iB»;"-BAND CORANGE>KANAL<GRAA3>"i 

KA i PRINT TAB<20> ; " <CRSR OP.L.BLHB) I' 

310 PRIMT"< CRSR HOJRE10 7 -- 

-- < OUL>“ 

320 PRINT”<CRSR NED3.CRSR H0JRE4>SEMDE- 
FREKVENS. ..... - <CVAM>" ; GT*Ti "MHZ" 

330 PRINT”<OUL.CRSR MED2.CRSR HOJRE4 >MO 
DTROE—FREKVENS.... 

:(CVAH>",OT*T-435."MHZ" 

340 X-VAL<LEFT*CTI*.2>>—1 
330 X» ’STRKX) 

360 IF X—— 1 THEM X*=" 23" , 

370 IF LEN<X*><3 THEN X*—" O +CHR*< VAL < 

X *80 4 PRINT"< HOME.GUL.CRSR MED20.CRSR HOJ 

R 390 > PRINT”(L.OR0M.CRSR HOJRE10.RVS ON,S 
PACE<GMT TID : < RVS OFF. SPACE» " • X* . 

: " i MID*< TI*■ 3• 2 > ' 

4O0 PR I NT " : ".PI OHT* < T I * • 2 "• _ 

410 PRINT"<CRSR HOJRE10> _ __ 

420 PRINT"CHOME,CVAN,CRSR NED,CRSR HOJR 
E10) DANSK < CRSR HI > IRE > T I D < CRSR HB.IRE2)"; 
LEFT *<TIt,2> • " - " MID* <TI*-3.2>i 
430 PRINT.. 

440 OET S* IF SPCHFI < 32 ' THEN 15V* 

450 OOTO 340 _ . __ 

460 DATA 1,2,3,4.5,6.7.9. 10, I 1 ■ 12.14, IS 
,16,17,19,20,21,22,24,25,26,23,27.28 
470 DATA 30.31,32.33,34 - -:S , 36 , 37,30 , 39 , 
40.41,42,43,44 
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Formel 1 
coach 


Niki Lauda, James Hunt og 
de andre formel 1 korere kan 
godt gd hjem og lcegge sig, 
ndr bare man har en Spec¬ 
trum 48K og spillet Formula 
One. I dette spil fdr man nem- 
lig en chance for at lede et af 
de beromte formel 1 hold 
(f.eks. Ferrari)gennem nogle 
scesoners hcesblcesende rces. 
Formula One er, pd trods af 
emnet, ikke et spil der krcever 
de hurtigste reflekser Det er 


opbygget. sd spilleren reelt 
kun har kontrol over bilerne i 
indledningsfasen. hvor han 
kan vcelge mellem at bruge 
sine sponsor eller prcemie- 
penge pd forbedring eller ny- 
indkob af karrosseriet. moto- 
ren, mekanikerne eller fore- 
ren. Man skal dog styre me¬ 
kanikerne, ndr vognene fra 
ens eget hold korer i depot, 
og sd bor man vcere hurtig. 
Spillet er i starten meget un- 
derholdende, men i det lan- 
ge lob er det lidt kedeligt. Hel- 
digvis er der den mulighed. 
at man kan vcere seks spille- 
re i gang samtidig - med 




Kending i 
ny udgave 

■ Pacman startede det hele. 
Pludselig kendte alle til com- 
puterspil. Selv forceldre blev 
fascineret af den lille ost, der 
mdtte llygte fra spogelseme. 


Siden dengang har compu- 
terspil til stadighed udviklet 
sig og efterhdnden opndet 
utrolige hojder i form af mu- 
ligheder og realisme. Men alt 
andet lige har labyrintspille- 
ne beholdt deres popularitet 
siden "den-med-osten''. Det 
hcenger nok sammen med. 


hvert sit racerhold, Sd er spil¬ 
let meget underholdende el- 
terhdnden som meddelelser- 
ne om punkteringer. udskrid- 
ninger, sammenstod og de¬ 
pot besog lober ind. 

Ndr et racerlob er i gang, er 
der foruden bilerne, der farer 
forbi. en resultatliste. hvor 
man hele tiden kan se sit eget 
holds placering. Jeg kan 
godt love, at det er en vidun- 
derlig fornemmelse at have 
to biler liggende forrest, men 
jeg kan ogsd forsikre om, at 
det er surf, ndr de samme to 
biler stoder sammen pd sidste 
omgang . . hulk . . 


at fredselskende personer fin¬ 
der det mere behageligt at 
spise prikker end at skyde 
med laser-kanoner mod 
fremmede rumskibe. 

Hyper Viper fra Kuma inde¬ 
holder alle ingredienser: Du 
befinder dig i en stor labyrint, 
hvor der ogsd er slanger og 
insekter. Hvis du kan liste dig 
ind pd slangeme baglra. kan 
du cede dem. Men hvis slan- 
gerne moder dig med hove- 
det forst. bliver du den lille. 
Rundt i labyrinten lober ogsd 
nogle smd biller. De gor ikke 
dig noget, men du bar gore 
kdl pd dem hurtigst muligt. El¬ 
lers kan de finde pd at lcegge 
ceg, som bliver forvandlet til 
larver. Og disse larver er dod- 
bringende for dig. 
Labyrinten er sd stor, at den 
ikke kan vises pd skcermen 
pd en gang. Problemet klares 
ved at scrolle hele labyrinten, 
sd skcermen virker som et 
"vindue". 


Lydsiden er OK, med en lidt 
forkvaklet racerbilslyd. Til 
gengceld er grafikken ud- 
mcerket med realistiske lar¬ 
ver. Instmktionen stdr det 
meget svagt til med. Lige, ndr 
man har loadet spillet, er 
man helt i vildrede med, 
hvad man skal gore. 

Alt i alt er "Formula One" et 
udmcerket spil, der egner sig 
bedst til at vcere flere. (Twi- 

light).D - 1 | 

Gralik: SKi 1 9 

Lyd: JB| 9 

Morskab (alene): 8 

Morskab (med andre): 10 
Pris/kvalitet: 9 


Inden starten vcelger du, om 
spillet skal kore langsomt, 
hurtigt eller midt imellem. Pd 
den hurtige hastighed skal du 
virkelig holde tungen lige i 
munden. Ndr du har fdet spist 
alle slangeme, gdr du videre 
til nceste labyrint, som er en 
tand svcerere. Ndr niveauer- 
ne vokser, bliver der ogsd fie 
re slanger. 

Hyper Viper er et sjovt laby- 
rintspil. men det lider af en al- 
vorlig ulempe: Man kan 
hverken bruge MSX'ernes sto¬ 
re cursortaster eller et joystick 
til at bevcege sig frem og til- 
bage i labyrinten. Det er kun 
muligt at bruge K/M tasterne 
til op/ned og Z/X tasterne til 
venstre/hojre. Og det tager en 
del tid at fd det indarbejdet i 
fingrene. (Microdealer). 

Lyd: 8 

Action: 9 

Hastighed: 9 

Pris/kvalitet: 9 
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Flakkende 

kvalitet! 


PLftYER 1 SCORE 001 




Nogle folk mener at man skal 
se stort pd andre folks scerhe- 
der og de bruger gerne ord- 
sprogef "Hver sin lyst". men 
dem der har lyst til at spille 
Flak burde spcerres inde 
Flak og andre programmer 
af samme type, fortjener et lil- 
le mcerkat hvor der stdr "B- 
program". da det er lige. 
hvad det er, 

I spillet befinder vi os i dr 2096, 
hvor hele universet trues af 
Giga-robotten. Spilleren fdr 
overdraget en mission, der 
gdr ud pd at angribe og 0 de- 
lcegge robotten, men forst 
skal han i sin fremtidsjager 
flyve igennem en masse 
"flak" - fjendtlige jord til luft 
kanoner. 

Dem, der pd Funsoft, har skre- 
vet Flak har forspildt deres 
chance for at lave en best¬ 
seller, idet de har god grafik, 
og en god spilidd, men des- 
vcerre har de odelagt spillet 
med en masse dumme fejl. 
Det er f.eks.: 

Pd forsiden af coveret til 
Spectrum spillet er der et bille- 
de af en Commodore skcerm, 
der jo har bedre grafik. Mis- 
tcenkeligt, og det er falsk re- 
klame. 

Introduktionen og oplysnin- 
gen om spillet er sd mangel- 
fuld, at man i de tarste spil ik- 
ke ved, hvad det drejer sig 
om. 

Spillet er ensformigt, og det 
bliver ikke bedre af, at man 
skal se computeren styrer fly- 
et hele ruten igennem i slow- 
motion, ndr man selv er ude 
af spillet. (Twilight). □ 
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Kamp mod 
diktaturet 

■ Et spil, der handler om at 
tage de rigtige politiske be- 
slutninger pd de rigtige tids- 
punkter. Lyder det kedeligt? 
Det behover det skam ikke 
vcere. 

I staten Dictatoria hersker der 
velordnede forhold. Lidt for 
velordnede, er der nogle, der 
mener. Du er en ledende bor- 
ger i landsbyen Holdfast (det 
hedder den faktisk pd en- 
gelsk). Din opgave er, at fd 
gennemtrumfet opterelsen af 
en skole og et lille hospital pd 
trods af regeringens anstren- 
gelser for at forhindre bygge- 
riet. De mener nemlig, at der 
ikke skal bruges penge til den 
slags i en krisetid. 

Du og din landsby har forskel- 
lige midler til at lcegge pres 
pd regeringen. I kan f.eks. til- 
bageholde alle skatter. Det 
skal nok fd dem op pd mcer- 
keme. En anden mulighed er 
at soge st 0 tte hos andre, fag- 
foreninger osv. Pas bare pd, 
at I ikke strammer den for 
meget. Sd kan I nemlig risike- 
re. at militceret bliver sat ind. 
Som tiden gdr, kan du folge 
med i beslutsomheden i 
landsbyen og i regeringen. 
Denne angives som et pro- 
centtal, der siger noget om, 
hvor mange der er enige. 
Hvis enigheden i regeringen 
gdr nedad, er du pd rette 
spor. men det kan ogsd ske, 
at beboerne i Holdfast efter- 
hdnden bliver trcette af de 
forhold. der ncermer sig und- 
tagelsestilstand. I sd laid har 
du nok kart for hdrdt pd, og 
du md herefter sage stotte i 
din egen by. 

Holdfast er et anderledes spil. 
Her vil du garanteret blive 
den lille, hvis det ender med 
en vcebnet konflikt. Sd du md 
endelig sorge for. at det aldrig 
kommer sd langt. Spillet inde¬ 
holder kun tekst - ingen gra¬ 
fik. Der krceves et rimeligt 
kendskab til engelsk, og i sd i 
fald vil spillet nok virke rime- 
lig fcengslende, indtil du for- 
ste gang har ndet dit mdl. 
Herefter er det givetvis for let 
at gent age succes'en. Dette 
MSX spil er lavet af Kuma. 
(Microdealer). _ 
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Huset fyldt 
af spogelser 

I Spooks (ra Mastertronic skal 
du udforske et hus, der er be- 
sat af spogelser. De dukker op 
regelmcessigt. og din enesie 
chance for at undgd dem er. 
at du kaster ting efter dem. 
Hvis du skulle ramme dem 
(ca. 6 ud af 10 gange). vil de 
forsvinde og du er sikker. 
Rammer du derimod ikke 
spogelset, vil du i de flesle til- 
fcelde do. fordi modstande- 
ren flyver meget hurtigere 
end du kan gd. og sd kan de 
naturligvis gd igennem mure 
etc. 

Selve huset er bygget som en 
labyrint, som du skal udfor¬ 
ske. Forskellige steder i huset 
er der anbragt genstande, 
f.eks. ure. Hvisdu ser et ur. der 
stdr pd "lidt i tolv" scettes det 
til efter midnat. da alle spo- 
gelsesjcegere jo ved. at spo- 
gelserne kommer ndr det 
bliver midnat. Dog er der ikke 
konstateret nogen cendring 
af hyppigheden af spogelser- 
ne. selv om uret ikke blev stil- 
let. Spooks hovedide er. at du 
skal sarnie 8 kassetter (MU- 
SIC-BOC), og disse skal alle 
anbringes foran indgangen 


til huset. Den skal du i ovrigt 
ogsd finde. Ndr de er an¬ 
bragt. skal du afspille dem 
samlet for det vil rydde huset 
for spogelser for altid. Af an- 
dre genstande du bar kende 
kan ncevnes: 

MAP (kort) der viser alle rum 
+ udgang. 

BURNIN COAL (brcendende 
kul). der ligner kirsebcer. Dem 
md du ikke spise. 

PADLOCK KEY (bid nogle). 
der dbner bid dore. 

BOAT (bdd). som skal bruges. 
ndr du sejler pd soen (inde i 
huset??). 

CHEESE (oste) er forgiftede. 
men du dor ikke af at spise 
dem. 

Andre genstande. der ikke 
normalt kan spises. bruges til 
kasteskyts. 

Spillet har mange vcerelser 
(baner). men efter ca. 15 mi- 
nutter pd samme spil bliver 
det ensformigt. 

Et sidste rdd med pd vejen: 
Pas pd hvilke rum du gdr ind 
i. da nogle af dem er varme 
ovne. (Supersoft). 
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SUPERPILOT I VIETNAM 


Hughes UH- IX kamphelikop- 
terne var nok de mest popu¬ 
late fly blandt USA's tropper 
i Vietnam. De smd choppere 
med kcelenavnet "hueys" 
svirrede som moskitosvcerme 
ovenover de kcempende 
styrker og reddede tusindvis 
af sdrede. Det kan vel derlor 
ikke undre. at U.S. Gold sen¬ 
der en hyldest pr. computer- 
spil til netop Hughes helikop- 
terne. 

Det er blevet til Super Huey, - 
et flysimulationsprogram. der 
virkelig har forljent betegnel- 
sen "super”. Spillet er nemlig 
ikke blot meget realistisk. 
men ogsd ganske krcevende 
og ambitiost. 

Super Huey spilleren kan si- 
mulere sig til fire forskellige si- 
tuationer: INS. hvor du lcerer 
at flyve i det hele taget. EXP, 
hvor man er stifinder i et 
ukendt jungleomrdde. RSC - 
rescue - hvor man netop skal 
redde nogle soldater i klem- 
me samt selvfolgelig "Com¬ 
bat”. hvor du skal kcempe 
mod Nordvietnamesernes 
helikoptere. der i hvert laid i 
spillet er underlegne bdde i 
manovredygtighed og be- 
vcebning. 

Spilleren sidder ovenlor fly- 
cockpittet og skal inden start 
sorge for at laste fire raketter. 
der selvfolgelig ogsd skal ar- 
meres forst. Sd er helikopteren 
klar til opvarmning. inden 
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kampen eller eftersogningen 
kan begynde. 

Super Huey er nceppe for be- 
gyndere. Der skal en del erfa- 
ring med flysimulatorer til. 
hvis alt skal gd dig vel. F.eks. 
skal der tages gevaldig hen- 
syn til vindens skiften, rotor- 
bladene skal vinkles korrekt, 
motorkraften justeres og ben- 
zinmdleren aflceses konstant. 
Det er en god ide at lcese ma- 
nualen grundigt. for du be- 
giver dig udi Super Huey. Al¬ 
le kommandoer til compute- 
ren er bogstavkombinationer 
hentet fra det "aegte” flyver- 
liv. Indtaster du noget forkert, 
kommer du som regel gruelig 
gait afsted. 

US Gold spillet er meget tcet 
pd virkeligheden - sddan 
som vi kunne forestille os, den 
md have vceret. Grafikken er 
bare fremragende og lydsi- 
den giver en glimrende illusi¬ 
on af at have piskerisen rote- 
rende lige ovenover en. 
Ganske morsomt er, at US 
Gold ikke har brugt megen 
tid eller plads i manualen til 
at beskrive. hvordan man 
lcerer at flyve pr. computer - 
man forudscetter, at spilleren 
tidligere har provet lignende 
simulatorer. Til gengceld gor 
man meget ud af, hvilke lig- 
heder og forskelle, der er vir- 
kelighedens og datamatens 
Hughes UH-1X helikopter. 
(Twilight). 

































































Mystik pa 
skatteoen 

Gdder er nagleordet i action- 
spillet Spirit of the Stones af 

Ian Gray og Lee Braine. Stem- 
ningen i spillet er prceget af 
okkult middelalderlig mystik. 
der understreges af den 37 si- 
der lange bog om samanden 
Marks eventyragtige oplevel- 
ser. 

Halge bogen er Mark en gan- 
ske almindelig semand. ind- 
til han en nat gdr i land pd 
pen Spirit of the Stones sam- 
men med sin kaptajn og to 
andre samcend. Med sig har 
de en pose diamanter. og det 
er pd gmnd at disse cedelste- 
nes tiltrcekning pd folk med 
en beskidt tankegang. at de 
alle bliver drcebt. 

Marks sjcel genopstdr i skik- 
kelse af et spagelse. Diaman- 
terne er Mark stadig i besid- 
delse af, og hans mdl er nu at 
skjule dem lor omverdenen, 
hvilket absolut ikke er nogen 


spredt pd pen. Hvis man an- 
sker at scette sig ordentligt ind 
i Spirit of the Stones krcever 
det, at man er i stand til at lce- 
se middelalderligt prceget 
eventyrengelsk, hvilket godt 
kan virke lidt anstrengende i 
lcengden. Bogen er tuld af 
ganske flotte illustrationer og 
hemmelige skrifttegn. som 
man skal tyde tor at Ipse gd- 
derne. 

Ud tra historien og spillet, skul- 
le det vcere muligt at vinde 
en pulje pd op til 100.000 
pund. hvis man laser gdder- 
ne og finder hoveddiaman- 
ten "The Great Wight Eye". 
Hvem er den usynlige betrag- 
ter? Hvad betyder de mysti- 
ske runer? og Hvem vil tinde 
de skjulte diamanter? er nog- 
le af spargsmdlene, der gdr 
igenog igen. 

Men nok om gdderne, hvad 
fdr man ud af spillet ud over 
utallige savnlase ncetter? 
Spillet bestdr af ca. 25 baner. 
hvoraf nogle ligner hinanden 


passere sppgelser, skorpio- 
ner, faldende objekter og 
knivskarpe guillotiner med 
tare for at blive ramt at nok sd 
dodelige ting som knive. pile 
og spyd. Mulige mdder at da 
pd er der nok at. Du bliver og- 
sd tappet lor "livssjoel" pd 
vejen mellem banerne. 
Gratikken i spillet er rimelig 


omtattende ville nogen md- 
ske mene. 

Spirit of the Stones er et at de 

spil. man hurtigt bliver besat 
at lysten til at gennemfore 
med de dertil harende cergel- 
ser over at da gang pd gang. 
Men lad mig sld last, at pro¬ 
gramme! er bygget op som 
en stor gdde, der nok skal 
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let opgave p.g.a. diverse le- 
de dcemoner og andet godt- 
tolk. 

Mark skriver et digt der fortcel- 
ler, hvor en stor del at dia- 
manterne er gemt. Det er nu 
spillerens opgave at genlinde 
de diamanter, der ligger 


til torveksling, og de er alle 
fordelt pd skatteoen "Spirit of 
the Stones". 

Pd hver af banerne er place- 
ret to diamanter. mere eller 
mindre tilgcengelige. For at 
lcegge sine klamme hcender 
pd kostbarhedeme. skal man 


god. Lyden (melodien) er og- 
sd godt lavet. selv om den i 
loengden kan virke lidt an¬ 
strengende. men det er jo op 
til spilleren selv at bestemme 
lydstyrken. 

Instruktionen er omtattende 
og fuldt ud tilstrcekkelig, tor 


I hcelene pa 
den onde vinge 


H Klassikeren The Hobbit op- 
ndede en enestdende status 
som det Adventure, der over- 
gik alle andre. Denne positi¬ 
on trues nu alvorligt at The 
Tracer Sanction fra Activisi¬ 
on, der er det bedste Adven¬ 
ture vi har set i lange tider. 

The Tracer Sanction toregdr 
engang i fremtiden, hvor 
mcelkevejens vcerste lorbry- 
der. The Wing, er forsvundet 
blandt planeter og meteorer. 
Som alle andre kriminelle, ef- 
terlader han sig spor, som du 
skal undersage. Og sagt tra 
starten. - grib fat i alle detal- 
jer. Ellers kommer du ikke 



langt. Og husk, venlighed 
betaler sig. 

Spillet er oplivende med flot¬ 
te grafikbilleder som ledsa- 
gelse at teksten. der jo som 
bekendt er det vigtigste i et 
Adventure spil. 0nsker du 
vejledning, vendes disketten. 
Sd tdr du gode rdd i ord og 
billeder, ligesom mulige epi- 
soder simuleres. Helt tint. 

The Tracer Sanction krcever 
meget at sin spiller. Farst og 
fremmest naturligvis omtanke 
og en god portion snedighed. 
Desvcerre md du ogsd kunne 
en del engelsk. tor underti- 
den krcever det synonymer 
at komme videre. 


Og lige et par tips, hvis du tar 
begive dig ud i jagten pd den 
onde vinge. Stdr du i en ula- 
selig situation, pdkaldes den 
vise kondor. Men pas pd. 
den md kun give dig rdd tre 
gange i alt. 

Bryd aldrig ind i huse. Bank 
pd og bed venligt om infor- 
mationer. Skatter du dig fjen- 
der og uvenner, er din livstor- 
ventning ret sd kort. 
Funktionstasteme F7 og F8 be- 
nyttes ofte. fordi du slipper for 
at begynde helt forlra. F7 gi¬ 
ver en sikkerhedskopi at dit 
nuvcerende spil. F8 giver dig 
"quickload", ndr du skulle 
have vaeret uheldig og geme 
vil i gang igen. 

The Tracer Sanction kan 
nemt tage 4-5 timer at rode 
rundt i. Men den har hobbit- 
tens kvaliteter, - kan man li- 
de Adventures, bliver man 
sjceldent trcet af dem. (CBS). 
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give spilleren mange grd hdr 
i hovedet. (Microdealer). 
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Altom 

DATA 

Hver lardag kl. 
17-18 pa FM 
102,8 MHz i 
storkobenhavn 


Danmarks 

hotteste 

dataradio 


Produceres i samarbejde 
mellem The Voice og 
mdnedsbladet "Alt om Data' 
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Phone home 


■ Teletonkartotek til Commo¬ 
dore 64 med disk er et pro¬ 
gram, hvor du kan sage pd 
navn. adresse eller telefon. 
Forste gang du bmger pro¬ 
gramme! skal du skrive data 
ind om de personer du onsker 
skal vcere med i dit karto- 
tek.D 

Stephan Koisholm 




5 DIM V*< 100) 

10 PR INT“<CLR)"sPOKE 53280,0:POKE 53281,0:POKE 64S,2:CL0SE 3:CLOSE 1 
20 PRINT*< RVS ON,SPACE39)" 

30 PR INT"< RVS ON,SP8CE12>TELEFONKARTOTEK 
40 PRINT"( RVS 0N,SPftCE38)“ 

50 PRINT"< CRSR NED 11)" 

60 PRINT-CCRSR HOJRE14)NYE DATS:< RVS 0N)F1CRVS OFF,CRSR NED)" 
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70 PRINT"! CRSR HOJRE14)SOGNING :<RVS 0N)F3!RVS OFF > " 

71 PRINT“< CRSR NED,CRSR HOJRE14)OVERS 1GT : < RVS 0N)F5! RVS OFF) 

30 GET ft*:IF A* ="!F1)"THEN 500 

90 IF A*="! F3)"THEN 110 

91 IF ft*="<F5)"THEN 3000 
100 GOTO 30 

110 PRINT"! CLR)":PRINT"( RVS 0N,SPftCE39>" 

120 PRINT"! RVS ON,SPftCE16)SOGNING 
130 PRINT"! RVS 0N,SPACE39)” 

140 PRINT"! CRSR NED 1 1)" 

150 PR INT"! CRSR HOJRE10 >SOGNING Pflft NftVN:!RVS 0N)F1!RVS OFF,CRSR NED)" 

160 PR INT"! CRSR HOJRE10)SOGNING Pftft ftDR.:!RVS 0N)F3! RVS OFF,CRSR NED)" 

170 PRINT"! CRSR HOJRE10)SOGNING Pftft TLF.!!RVS 0N)F5! RVS OFF,CRSR NED)" 

180 GET ft*: IF A*= "! F 1 ) "THEN 1000 
190 IF ft*=“! F3)“THEN 1001 
200 IF ft*="< F5)"THEN 1002 
210 GOTO 180 

220 PRINT"! CLR)":PRINT”! RVS 0N,SPftCE39>“ 

221 IF D*="T NflVN "THEN S*="NAVN" 

222 IF D*="N ARD• “THEN S*="ARD." 

223 IF DS="T NR. "THEN 5*="NR. » 

225 PRINT C* 

230 PRINT"! RVS 0N,SPACE39>" 

235 PRINT "< CRSR NED4)SKRIV ";S* 

236 INPUT "!CRSR OP,CRSR HOJRE1O)"JNAVN* 

240 OPEN 1,8,15 

245 OPEN 3,8,2,"0:DATA,SEQ,READ" 

250 FOR A=0 TO 100:F0R Q=0 TO 2: INPUT#3 ,B*! Q) : NEXT QlGOSUB 4000 

255 NEXT A.-PR INT"! CRSR NED2 )BEKLAGER MEN DE " > D*; "F INDES IKKE " 

256 GET A*:IF ft*< >“"THEN 258 

257 GOTO 256 

258 GOTO 10 

500 PRINT"! CLR,RVS 0N,SPACE39)" 

501 PR INT"! RVS ON,SPACE 15 )NYE DATA 

502 PRINT"! RVS 0N,SPACE39)“ 

505 OPEN 1,8,15: OPEN 3,8,2 , "(5 : DATA ,SEQ ,UR ITE " 

510 PRINT"! CRSR NED4)NAVN 
515 PRINT"! CRSR NED)ADRESSE :■ 

520 PRINT"! CRSR NED)TELEFONNR. 

525 PR INT”! HOME,CRSR NED5)":F0R A=0 TO 100:F0R B=0 TO 2 
:INPUT"! CRSR NED,CRSR HOJRE13 ) ■;X* 

530 IF X*="SLUT" THEN 300 

535 PRINT#3,X*:NEXT B:PRINT"! HOME,CRSR NEDS)":NEXT A:CLOSE 3:GOTO 10 
700 PRINT"! HOME,CRSR NED8)NAVN i" 

710 PRINT"! CRSR (ED)ADRESSE :" 

720 PRINT"! CRSR NED)TELEFON NR. : ■ 

730 PRINT”! HOME,CRSR NED6)”:F0R A = 0 TO 2:PRINT”! CRSR NED,CRSR HOJRE12)“ i B*<A) 
:NEXT A 

735 GET F*:IF F*<)""THEN GOTO 10 
740 GOTO 730 

800 F*= " INTET “ : FOR UI=A TO 100 : PR INTtt3 ,F*: NEXT W:CLOSE 3:G0T0 10 

1000 X=0:C*="! R 
:GOTO 220 

1001 X=1:C*-"! F 
:GOTO 220 


:GOTO 220 

2000 PR INT"! CLR)":PRINT"! HOME,RVS 0N,SPACE39)" 

2001 PRINT"! RVS ON,SPACE 14)OVERSIGT 

2002 PRINT"! RVS 0N,SPACE39>" 

2005 OPEN 1,3,15:OPEN 3,8,2,"O:DATA,SEQ,REA0":PRINT"! HOME,CRSR NEDS) 

2006 FOR A=0 TO lOO STEP 3:FOR B=A TO A*2:INPUTM3,A* 

: PR INT"! CRSR NED ) “; A*; * “ : NEXT B 

2007 PRINT"! HOME,CRSR NEDS)■ 

2010 GOSUB 3000 

2011 IF A*=*INTET"THEN lO 

2012 NEXT A:GOTO 10 

3000 GET vs:IF V*<>""THEN RETURN 

3001 GOTO 3000 

4000 IF MID*! B*!X),1,3)=MID*! NAVN*,1,3)THEN 700 

4001 RETURN 




ON,SPACE 10 >SOGNING 

PAA 

NAVN 

":D*=' 

"T 

NAVN 

ON,SPACE 10)SOGNING 

PAA 

ARD. 

••: D*=' 

•N 

ARD. 

ON,SPACE 10)SOGNING 

PAA 

TLF . 

“:0*=' 

•T 

NR. 
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Land Patrol 


Du er spion i tredje verdens- 
krig. og du er pd en mission i 
ijendens land, hvor du har 
indsamlet inlormationer, som 
kan forkorte krigen med flere 
dr. Du md derfor sikkert tilba- 
ge. hvis din mission skal vcere 
vellykket. 

Forst skal du nd hen til en mel- 
lembase. Pd vejen derhen er 
orkenen fyldt med huller. som 
du skal undgd ved at hoppe 
med din boogy. Hvis du ndr 


sd langt, kommer der ogsd 
klipper som du skal skyde 
med din laser kanon. Etter an- 
den mellembase skal du og¬ 
sd skyde de tjendtlige jetjage- 
re Kommer du hjem i god be¬ 
hold. vil du blive belonnet fyr- 
steligt at din regering. 
Instruktioneme er indbygget i 
programmet. Spillet kan bru- 
ges sammen med Currah 
Speech tale synthese.D 

Flemming Christensen 


SPEC¬ 

TRUM 




Progiammwr 

Samthge attrykle lislninger 
er alprovede lei oBenllig- 
gerelse Foilagel belalei 
skallelill op III 1000 kionei 
lor godkendle ICBserpio- 
grammer Foilagel har rel 111 
al altrykke godkendle pro- 
grammer 1 bladel og oUenl- 
bggere dem pd andre 
lagermedia 












SAT 16.yl" EFGH 
Z" AND y>3> 


1 REM III a 1985 000 

2 REM Flaamins Christ«n»n 

3 REM 000 /// 

3 LET K*ys-0: LET hi-Os CO SUB 3000 

200 REM III MAIN PROGRAM 000 
210 FOR a-l TO 630 
220 GO SUB 300 

230 IF sta-2 THEN GO SUB 600 
240 IF «la-3 THEN GO SUB 300 

230 PRINT AT 14.y|" “SAT 13.yl INK 6l" ABCD 

260 LET a*-INKEY*: LET y-y^(a*-"x" AND y(20)-(a*- 
270 IF a*-"o" THEN GO SUB 1000 
275 IF a*«"k" THEN GO SUB 1200 

280 LET bonus-INT (bonut-(31-y)/2>t IF bonus<0 THEN LET bonus-0 

290 PRINT AT 3.9lbonusl“ •« NEXT «: GO TO 1500 

300 REM III STAGE 1 000 

310 PRINT AT 17.Ot INK 4tl*(a TO a*3l> 

320 IF POINT (y *8»40.39)-0 OR POINT <y*8*32.39>-0 THEN GO TO 2000 
330 IF sta-1 THEN FOR n-1 TO 3s NEXT n 
340 RETURN 

400 REM III STAGE 2 O00 

610 LET b*-"EFGH"i IF a*-“o" THEN LET b*-k*(a^y TO •*v*Z >i GO TO 430 
620 PRINT AT 13.yl INK 6t" ABCD " 

430 PRINT INK 6lAT 16.0'.k*(a TO a»y>lb*lk*<a»y♦* TO •♦SO) 

440 IF POINT <y*8*42.40)“1 THEN GO TO 2000 
450 RETURN 

300 REM III STAGE 3 000 
310 PRINT AT 7.ddl" " 

320 LET d*-15>S!N cs*l3 
330 LET d«-l28^SIN CS-120 
340 LET cs-cs«.3 
350 PRINT AT 7.ddl INK 31-OP" 

360 IF cs) 10 THEN IF dd<20 THEN IF dd) 3 THEN IF RND(.09 THEN OVER H PLOT 
f i 1 12> DRAW 80.-80s RANDOMIZE USR 60200s PLOT df.ll2< DRAW 80.-80s OVER Os LET 

• (•♦d*M0)-"I" s LET c*-cm-2*PI 
370 RETURN 

1000 REM III JUMP 600 

1010 PRINT AT 16.y*1 I " "I INK 6SAT 14.yM I“ABCD"SAT 13.y*lI"EFGH" 

1020 FOR b-1 TO 3s LET •-•♦! 

1030 LET bonus-INT (b©nus-(31-y>/2>I IF bonus<0 THEN LET bonus-0 

1040 PRINT AT 3. 9lbonusl" - 

1050 PRINT AT 17.01 INK Ali*(a TO •♦SI) 

1060 IF sta-2 THEN GO SUB 400 
1070 IF sta-3 THEN GO SUB 300 

1080 FOR n-1 TO (10 AND sta-1 M(3 AND sta-2H<3 AND sta-3>s NEXT n 
1090 NEXT b 

1100 IF POINT (y*8*33.39)"0 THEN 00 TO 2000 
1 110 RETURN 
1200 REM III FIRE 060 
1210 OVER is INK 3s FOR n-0 TO 1 
1220 PLOT y*8*40.45 
1230 PLOT y*8* 1 7• 56 
1240 IF NOT n THEN 
1230 NEXT ns INK 7 
1260 IF sta-2 THEN 
1270 IF sta-3 THEN 
1280 RETURN 

1290 IF *•<•^♦3 TO •♦y+lO) <)k*< 1 TO 6) THEN 

* ICSK 

1300 LET k*(*♦y ♦ * TO a*y*10>-k*<1 TO 6)s RETURN 
1310 IF y<> INT d« AND yMOINT dd THEN RETURN 
1320 PRINT AT 7.ddl INK 3l INVERSE II"OP" 

1330 LET »•*’ ( uh) f ( OO) hit"l PAUSE 1 
1340 PRINT AT 7.ddl“ " 

1330 LET CS-3-PI/2*(RND*.5) 

1360 LET sc-SC*23r PRINT AT 3. 2lsc 
1370 RETURN 

1400 REM III PAUSE 606 

1410 LET *S^"hit <dh> k <••)" I PAUSE IS IF sta-1 AND *-6 THEN LET s*-“ t(ouu> St 
> *r)t * s PAUSE 1 

1420 PRINT AT 19.12S FLASH IS PAPER 4S INK Ol"HIT"l INVERSE 11" A "I INVERSE Ol " 

KEY" 

1430 IF INKEY*-"" THEN GO TO 1430 
1440 PRINT AT 19.121 PAPER 48" 

.450 RETURN 

1300 REM III NEXT STAGE 666 

1310 FOR a-2 TO 7s INK a: FOR n-1 TO 10t BEEP .0l.n*30: PRINT AT 8. nl" «LL":AT 
8.26-n!“DONE • 

1320 NEXT ns NEXT m 

1530 PRINT AT 10.4S"Y0U GOT THROUGH STAGE "1 FLASH ltsta 

1340 LET **-“y (ouu) sot (th)r(ouu) st(aa>ss PAUSE is LET sS«("wun“ AND sta-1) 
.'•t<ouu»" AND sta-2)*(" (th> r <dd» " AND sta-3): PAUSE 1 
.530 FOR a*1 TO 250: NEXT m 

1360 LET sta-staM: LET sc-sc^bonus: LET bonus-50001 IF sta-4 THEN GO TO 2400 

1570 PRINT AT 3. 2lsc 

1380 PAUSE 25s GO SUB 1400 

1390 PRINT AT 8.101" * 1 AT 10.41" 

1600 PRINT AT I5.yi" "SAT 16.yl" 

1610 LET y-6 : GO TO 200 
2000 REM III DEAD 066 

2010 PRINT AT 14.yMl" "SAT 15.yl" "lAT 16.yl" "1 INK 6: FLASH llAT 15.yM!"A 
BCD"1 AT 16. ydlt-EFGH" 

2020 FOR n-50 TO 20 STEP -3: BEEP .Ol.nt BEEP .Ol.n-5: NEXT n 
2030 LET s*—"hahaha.y(or) dddd": PAUSE 1 
2035 FOR ■■1 TO 160: NEXT m 

2040 LET M-li-ll PRINT AT 3.1711 it IF I ,-0 THEN GO TO 2200 
2050 LET i*< a TO •♦31)-l*<l TO 32) 

2060 LET x*(a TO a*31)=K*<l TO 32) 

2070 GO SUB 1400 

2080 PRINT AT 13. yl" "1AT 16.yl" 

2090 LET y*6: LET cs-3*PI/2 
-:lOO ftltXT a 

2200 REM III COMPLETELY DEAD 000 
2210 IF sc>h, THEN LET h.-sc 

2220 CLS : FOR n-1 TO 10: BEEP .01.n^30: PRINT AT n. n*\ 1 “GAME": AT 20-n.27-n:"OVE 
R": NEXT n 

2230 FOR n-1 TO 9: BEEP .Ol.AO-n: PRINT AT n.nait- 


DRAU 33.0 
DRAW 0.63 
RANDOMIZE USR 60200 
OVER 0 
GO TO 1290 
00 TO 1310 


LET sc-sc^20l PRINT AT 3.6-LEN STR 


II"WELCOME BACK HERO" 
har<oo)"t PAUSE 1 


BRIGHT 0: OVER Os INVERSE Os BORDER 7s CLS 
IS"LAND PATROL" 

a »ey in thd 3* th Woridwar.Your on a unition in anomy land. You 
must roach baso w.th so-* .meortant informations Nh.ch Canshort down thd war 
t»y roars. " 

3040 PRINT •"STAGE U Juwo thd holds." 

5030 PRINT "STAGE 2: Dost roy thd rocks and 
5060 PRINT "STAGE 3s Shoot down thd f.sthors 
5070 PRINT "BONUSs Tho bonus Mill count 
stoor your car forward.” 

5080 PRINT "CONTROLSiForward •’X’ JUMP •'O' 

5090 LET s*- " wo ( ll) com t(ouu) l(oh)nd P«tr(oo)i"i 
5100 REM III UDG's 1 LASER 066 
5110 RESTORE 5100s FOR a-144 TO 1631 FOR b-0 TO 7s READ d POKE USR CHR* •♦b.cs 
NEXT bs NEXT a 

3120 FOR a-60200 TO 60218s READ bs POKE a. bi NEXT a 

5130 DATA 0.0.0.0.2.6.14.30 .66.224.239.232.232.232.232.239 .0.0.192.112.28.7.1. 
253 . 0.0.0.0.0.0.192.240. 63.97.222.63.31.31.63.30 

5140 DATA 235. 240.239. 31.23. 23. 31. 13 .233.248.119.143.140.140.143.7. 252.112.191 
. 208. 204.192. 192.128 . 0. 129.193.227.231.255.233.253 .192.192.248.234.235.233.253 
. 233 

3130 DATA 3.7.7. 13.13.31.139.233 . 0.0.3.13.15.31.31.63 . 96.224 . 2*0.248.248.248.2 
32.252 . 24.28. 60. 60.62. 126. 127.235 . 0.3.3.61.233.3.4.14 . 0.192.160.188.233.192.3 
2. 112 

5135 DATA 124.126.102.124. 124. 102.126.124 .60.126.102.126.126.102.102.102 .60.12 

6.96. 124.62. 6. 126.60 . 126. 126.96. 120. 120.96. 126. 126 

3160 DATA 17. 1.0. 33.0.0.6.80. 197.229.205. 181.3.225. 193.35. 16.246.201 

3170 PRINT *08 BRIGHT HAT 1.10l"HIT A KEY- 

3180 LET s*—"hit (dh) k( dd)"s PAUSE 1 

5190 IF INKEY*-"" THEN GO TO 3190 

3200 REM III VARIABLES 000 

5210 LET sta-1s LET I.-3« LET sc-Os LET bonus-SOOOs LET cs-3-PI/2« LET d*«PI: LE 
T a*-" "I LET y-6 

5214 REM 

5215 REM Vod indtastn.n« af UAiorno 3220. 5230. 5240 o« 5250 bolrdor (GRAPHICS 
MODE) naturiisvis at du s*ai bruso do srafiskd tun vod at saa ovor . sraf.sk mo 
do. Bosstavorno or dd sraf-sko torn sop indtastos saadan sen dd staar. •8* batyd 
• r sraf.sk 8 o* ‘SB’ bdtyddr SHIFT sraf.sk 8. Dvs. staar ddr f.dks 37*’8’ bdtrdd 
r ddt 37 land sraf.su 8 

5216 REM 

5220 LET (GRAPHICS MODE) 37-* 8’ LM 22*’8* N 23*’8' LM 11*'8* N 24** 8* N 
62*' 8* NN 24d" 8" N 10*'8' LM 13*'8' LM 17d*8' LM 12*'8*“ 

3221 IF LEN k*<>231 THEN PRINT "Error In Lind 5220": STOP 

3230 LET -*-k»^" (GRAPHICS MODE) 8^'8' LM 14*’ 8’ LM 17*' 8’ LM 16d'8' N 21*’ 8’ N 1 
0*'8’ LM 13*'8' LM 22-* 8' LMN 19*'8' N 16*'8' LM 12»'8* LM 47-' 8’ " 

3231 IF LEN k*<> 486 THEN PRINT "Error In L.no 5230": STOP 

5240 LET I*-"(GRAPHICS MODE) 28-'S8* I 21* a S8’ IK 18*'S8' I 3*'S8* I 28*'S8' II 
29*’ S8* IK 18*' S8' JK 20*'S8' 1 5*'S8' I 22*' S8' IK 18*'S8' JK 16* ' S8' JK 4*'S8' 


avoid thd hOSdS. " 
and ramambdr thd holds." 
down siowdr if you 

Back -'Z' FIRE -'K" 
PAUSE 1 


5241 IF LEN 1*0231 THEN PRINT "Error In L • nd 5240": STOP 

5250 LET i*-!*♦"(GRAPHICS MODE) 31*’S8' JI 20**S8* II 13*’S8* JK 30**SB* IK 5**S 
8 ’ I 13*' S8' JI 23*’ S8’ II 27- , S8* 1 IS-’SS* II 40*’S8" 

3231 IF LEN 1*0 486 THEN PRINT "Error In L. nd 3250": STOP 
5300 REM III SCREEN PICTURE 880 
5310 INK 7: PAPER 0: BORDER 0: CLS 
3320 FOR n-0 TO 7 STEP 2: INK 4 

5330 PLOT n.175-n: DRAW 253-2»n.O: DRAW 0.-39*2-n: DRAW -255d2»n.O: DRAW 0.39-2* 
5340 NEXT n: INK 7 

5330 PRINT AT 1.1l PAPER 1S"SCORE BONUS LIVES Hl-SCORE"! BRIGHT OlAT 3.11 PA 
PER 01* 0000 5000 3 0000 " 

3360 PRINT AT 17.0: INK 4ll*(l TO 32)1 INK 6:AT 15.7l"ABCD"SAT 16. 7t"EFGH" 

5370 FOR a-1 TO 3s PRINT AT •♦17.01 PAPER 41" ": 

NEXT a 

5380 PRINT AT 3. 29-LEN STR* hilhi 
5390 GO SUB 1*00 
5400 RETURN 

9999 CLEAR : SAVE "LANDPATROL" LINE 11 VERIFY "" 


2240 PRINT AT 8. 11:"SCORE:"1AT 8.21-LEN STR* seise 
2230 PRINT AT 12.61"Anothdr Gamd ? iY/NA" 

2260 LET s*-"i(aa)« (o©>v(dr)..ano<th)(dr) G<AA)M"i PAUSE 1 
2270 FOR n-0 TO 2-PI STEP .3 

2280 PRINT INK 3lAT II♦COS n*5.13*S!N n*l5l"0P" 

2290 IF INKEY*(>"" THEN GO TO 2320 
2300 PRINT AT 1HC0S n*3. 13^SIN n*13l" " 

2310 NEXT r. s GO TO 2270 

2320 IF INKEY*--y- THEN GO SUB 5200: GO TO 200 
2330 STOP 

2400 REM /// YOU WIN 000 
2405 IF sOh. THEN LET h.-sc 

2410 FOR a-5 TO 16> PRINT AT a.01“ "I NEXT m 

2420 PLOT 160.40: DRAW 0.20: DRAW 30.0: DRAW 0.-20 

2430 PLOT 180.60: DRAW 0.42: DRAW 72.0: DRAW 0.-62 

2433 PLOT 180.1021 DRAW 13.11s DRAW 36.0: DRAW 18.-11 

2437 PLOT 198.102: DRAW 0. 10s PLOT 234.1021 DRAW 0. 10 

2440 RESTORE 2*30: FOR a-1 TO 10: READ n.o: PLOT n.©: DRAW 0.7l DRAW 7.0i DRAW 0 
. -7t DRAW -7.0: NEXT m 

2430 DATA 188. 86. 204. 86. 220. 86. 236. 86. I8E. 68. 204.68. 220. 68. 236. 68. 220. 30. 236. 30 
2460 PRINT AT 8.251 BRIGHT 1!"QRST- 

2465 PRINT AT 6.0l"Your a. ss . on is f. r. • -" "shad. You havo raturn-"’"dd to Baud w 
I th thd"' "laportant . nf oraa-" "t. ons. * 

2*70 LET •*-" ABCD" 

2480 LET c*-" EFGH" 

2490 FOR a-0 TO 13» PRINT AT 15.alb*lAT 16.ale*: BEEP .03.«: BEEP .03.*H60l NEXT 


:AT 20-n.27-i 






Eksamenstester 


COMMO¬ 

DORE 

64 



Mathematics stiller dig 75 reg- 
nestykker, hvor der er 25 mul- 
tiplikation(gange), 25 additi¬ 
on (plus) og 25 subtraktion 
(minus). 

Hvis du svarer forkert 3 gange 
pd samme stykke, fdr du sva- 
ret udleveret at computeren. 
Ndr du har kcempet dig igen- 
nem alle 75 stykker, tdr du en 
karakter tor din prcestation. 
Programmet er selvtorklaren- 
de, idet man blot skal indtaste 
tacit, sd det burde ikke volde 
de store problemer.D 

Danni Petersen 


O POKE 33281,0 POKE 153200.0 DIM fKinno' 
= PRINT" <CLR. MVID > " ; 

5 PRINT"<CLR. HVID.SPACE 1 1 > TRVJ' PRO PM T 
RSTE" 

10 C-INT<RND<l)«128+.3> IF C*12S THEM p 

— 1 60 : POKE 34296, 15 POKE 34277 . 6-4 
POKE 34278,128 

12 S-INT<RNDa>*2+.3> W-17 IP S-0 TMEM 

W-33 

1-4 POKE 34273, RND< 1 POKE 34272 • 37” P 

OKE 34276,W POKE 34276,16 

15 Q-O+l :fi<O)-RND<l>#1000 POKE R < O > 1 02 

4,C:POKE 33296+R<Q),RND<l>*16 
POR B—0 TO 1O 

20 POKE R < INT < RND < 1 -40 > )+33296, RND < 1 >♦1 

6 IF MOT 0-999 THEM NEXT B GET flf 

IP R*-""THEN 10 
215 IP R*0" "THEN 7*0 
60 OOTO 10 

7*0 POR F- 34272 TO 54296 POKE F.O ME! “ r » 
100 PRINT"< CLR,HVID-SPRCE5 . u i . BEREOICI 
DIM KRRRRKTER" 

105 PRINT"(CRSR NED2, SP8TE© • TEO OVHPFP 
MED TRL f » *• 

llO PRIMT"< CRSR NED. SP8CE9> DET ER »0 pr 
T BEDSTE" 

115 OET R* IP R*<> *• " THEM 115 
120 POR R-0 TO 1O00 MEXT R 

125 PRINT"(CLR.HVI1MHVI !• « -MMi . mi Mi .1 Ml 
DTRSTET ET TRL TRVK " • SPC < 17 s * • 

" < CRSR NED )PETMREN" 

130 INPUT"< CP3R NED2> HVRD KLRSSE ORRR f 
U I 5—10" ; KL : SV-INT< < <KL-2>*3> + . 5 > 

135 POR E-O TO 24 R-INT<RND-' 1 >*SV*2. ! 

B-INT<RMD<1>*SV+2.5 > 

1-40 PR I MT " < CRSR NEB2 > SP0PSMROL MR- " • E • " 
REOMESTVKKE " , R • " * " • B i 
'■ I NPUT " RESIJL TRT C 

1- 45 IP C-RWB THEM D —D-* 5 MEXT E GOTO 185 

150 IMPUT"<CRSR OP'PORKERT RESULTRT • 

: IP C-RWB THEM D — D-*-3 NEXT E OOTO 163 

155 INPUT"<CRSR OP > PORKI PT RESULTRT ” • C 
: IP C-R*B THEM D — D-*- 1 MEXT E OOTO 185 

180 PRINT"< CRSR OP>MEJ» ME J. NEJ. . . DET 
RIOTIOE VRR ",R#B : MEXT E 

165 POR E-O TO 2-4 fl-INT < RMD < 1 > 4< < SV*25 

1 5 . 5 > = B- I MT < RMD < 1 > *• < SV425 >*13.3> 

170 PRIMT" (CRSR NED2> SP0RSMRRL NR.",E;" 
REOMESTVKKE " ; R ; " : B ; "--7" 

:IMPUT"RESULTRT " ; C 

17*5 IP C-R + B THEM D-D+5 ^ NEXT E OOTO 105 

1O0 IMPUT" < CRSR OP > PORKERT RESUL r ft T 

• IP C-R-*-B THEM D-D-^3 MEXT E OOTO 193 

185 INPUT"<CRSR OP>PORKERT RESULTRT ".C 

IP C-R-*-B THEM D-D-^l MEXT E OOTO IBS 

130 PRIMT" < CRSR OP-NEJ, ME J * MEJ--- DET 

RIOTIOE VRR ", R + B MEXT E 

155 POR E-O TO 2-4 R= I MT < RMD •' 1 > * < SV*20 • * 

13.5)=B-IMT<RMD<1)*<SV*20)*13.3) 

200 PRIMT" < CRSR MED2>SP0PSMR8L MR- "E’ " 
REOMESTVKKE '• " R ; " - " . B ; 

IMPUT"RESULTRT ";C 

205 IP C-R-B THEM D=D^5 MEXT E OOTO 225 

210 INPUT"<CRSR OF >PORKERT RESULTRT M il 

IP C-R-B THEM D-D+3 MEXT E OOTO 225 

215 INPUT" < CRSR OP)PORKERT RESULTRT ":C 

• IP C — R— B THEM D —D-*- 1 MEXT E OOTO 225 

220 PRINT"<CRSR OP>MEJ, MEJ. MEJ--.DPT 

R I OT II3E VRR " , R —B MEXT E 

225 IP D — 37*5 THEM KR-13 

230 IP D <137*5 RMD D>360 THEM KR—1 1 

235 IP D<360 RMD D>340 THEM KR—10 

2- 4 0 IP DC340 RMD D>3 1 5 THEM KR-9 

2-45 IP D<31 5 RMD D>273 THEM KR —© 

250 IP DC275 RMD D>230 THEM KP-7 

255 IP D<230 RMD B>163 THEM KR-6 

260 IP D<165 RMD D>90 THEM KP-3 

265 IP D<90 RMD D>0 THEM KR-- 3 
27*0 IP D —0 THEM KR-0 

27*5 PRINT"<CLR,HVID-DIN KRRRRKTER ER 
KR J "< HOME, CRSR NED2)BU PIK" • D • 

"PIOTIOE < HOME, CRSR MED4>VIL DU IOEM 
<J7N>?" 

2©0 OET R* IP R*C""THEN 280 

205 OET R* IP fit’""THEM 285 

200 IP fl*-"J"THEM 100 

205 IP R*-"N"THEN RUM 

300 OOTO 273 


16 Soft Special 



















Tipsprogrammer til Amstrad 
er nogle ret dyre investerin- 
ger, - men her fdr du et nce- 
sten gratis. 

I Amtips skal du tinde et antal 
sikre udekampesejre, samti- 
dig med at du gcetter antallet 
at sikre 1 -taller og krydser. Ndr 
disse data er indtastet, ud- 
skriver programmet et torslag 
til. hvordan de avrige 1 og x 
tegn skal indscettes.D 

Per Andersen 
oaKimM. Kroll 


30,00 kr, 33,75kr. 37,50kr 
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AMSTRAD PROGRAM. TEGNFORDeLlNG 
10 MODE 1« INK 0. 01 INK 1.13 

20 PRINT"»*•••• TEGNF0RDEL INGSSYSTEM* *• ..-:?0R Jt\«i TO 30OINEX' JK 

30 LOCPTE 1.3: PRINT”•*•**♦*.►OF PER ANDERSEN .xTO* V-l TO 200:NEX 

T V 

40 LOCATE 1.5: PRINT J KIM M. KROLL ••••••••••••••- 

30 LOCATE 1.13: PRINT "SYSTEMET ER BASERET PAR AT MAN \AN FINDEET 5c».VVALGT 
L SIKRE UDEKAMPESEJRE.:F0R R-l TO 5000«NEXT R 

60 PRINT”OG SANTID1G G«TTE ANTALLET AF M. M. V. 1-TAl.LER OG X-ER. MVOREFTER PRO 

GRAMMET UDSKRIVER ALLE DE MAADER.1-TALLENE OG X-ERNE "AN kOMBINERES PAA BlOND 

T DE RESTERENDE KAMPE.“:F0R o-l TO 13000:NEXT o«CLS 

70 MODE 0:LOCATE U. 8:PRINT “HELD OG LYKKE”:F0R LS-1 TO 1000JNEXT L S 

80 MODE l:LOCATE 1.12«PRINT “INDTAST ET SELWALGT ANTAL "EGN.NAAR DU BLIVER SPUR 

GT OG TRYK * ENTER' EFTER mVER INDT0STNING.-:F0R UU-1 70 6000:n€XT UU«CLS 

30 LOCATE 1.6: INPUT"Antait#t af iikrt 2-tall#r ”tT2 

100 LOCATE 1 • 121 INPUT “0ntan*t af l-tau#r “ tTl 

110 LOCATE 1.18: INPUT "Antan^t af X-*r<MlN. 1-MAX. 10) *:TX:CLS 

120 IF TX*T1*T2<>13 GOTO 130 ELSE 130 

130 IF TX-0 GOTO 140 ELSE 160 

140 LOCATE 1. 10> PRINT ”D E R SKAL MIN. V C R E ET X“ :F0R 0-1 TO 60O0« 
NEXT 0:CLS:PRINT "GENTAG INPUT":G0T0 90 

150 LOCATE 2.10: PRINT “SUMMEN OF DINE INPUT ER IKKE 13...GENTAG INPUT"JFOR M-l 
TO 6000:NEXT U:CLS:G0T0 90 

160 PRINT "UDSKRIFT PAA PRINTER <J ELLER N) *»" 

170 Y«-INKEY*:IF Y*- M " GOTO 170 
180 IF Y*-"N" OR Y*-"n" GOTO 200 
190 UDS-1 

200 CLS: PRINT"PROGRAMUDF0RELSEN KAN STOPPES MIDLER- TIDIGT VED AT TRYKKE 'ESC 
OG STARTES IGEN MED 1 ENTER'"sFOR TT-1 TO 6000:NEXT TTxCLS:X-0 
210 FOR 0-1 TO <(13“T2)-<TX-1)):IF TX-1 GOTO 440 
220 FOR B-2 TO <<13-T2)-CTX-2))»IF TX-2 GOTO 310 
230 FOR C-3 TO C(13-T2>-CTX-3)>«IF TX-3 GOTO 320 
240 FOR D-4 TO ((13-T2)-(TX-4))I IF TX-4 GOTO 330 
250 FOR E-3 TO ((13-T2)-<TX-3>):IF TX-3 GOTO 340 
260 FOR F-6 TO <<13-T2)-<TX-6))lIF TX-6 GOTO 350 
270 FOR G-7 TO (<13-T2)-(TX-7))lIF TX-7 GOTO 360 
280 FOR H-3 TO (<13-T2)-<TX-8))lIF TX-8 GOTO 370 
290 FOR 1-9 TO (<13-T2)-<TX-9>)«IF TX-9 GOTO 390 
300 FOR J-10 TO <<13-T2)-(TX-10))HF TX-10 GOTO 410 
310 IF A>-B GOTO 440 ELSE 640 

320 IF A> =B OR A>-C OR B>-C GOTO 440 ELSE 640 

330 IF A>-B OR A>-C OR A>-D OR B>-C OR B)-D OR C>-D GOTO 440 ELSE 640 

340 IF A) -B OR A>-C OR A>-D OR A>-E OR B>-C OR B)-D OR B> -E OR O-D OR C)-E OR 

D>-E GOTO 440 ELSE 640 

350 IF A) =B OR A)-C OR A>-D OR A)-E OR A> -F OR B)-C OR B> =D OR B)-E OR B)-F OR C 

>-D OR C)-E OR C>-F OR D>-E OR D>-F OR E>-F GOTO 440 ELSE 640 

360 IF A> -B OR A>-C OR A)-D OR A>-E OR A) =F OR A> =G OR B> «C OR B>-D OR B>-E OR B 

>-F OR B>-G OR O-D OR C>-E OR C>-F OR C>-G OR D>-E OR D> =F OR D>-G OR E)-F OR E 

>-G OR F) -G GOTO 440 ELSE 640 

370 IF A) -8 OR A>-C OR A>-D OR A>-E OR A)-F OR A)-G OR A>-H OR B> =C OR B> =D OR B 

>-E OR B) -F OR B) =G OR B>-H OR O-D OR C>-E OR C> =F OR C>-G OR C>-H GOTO 440 E 

LSE 380 


380 D>-E OR D)-F OR D>-G OR D>-H OR E>-F OR E>-0 OR E>-H OR F>-0 OR F>-H OR G)-H 
OOTO 440 ELSE 640 

390 IF A) -B OR A>-C OR A>-D OR A>-E OR A>-F OR A>-G OR A)-H OR A>-I OR B>-C OR B 

> -D OR B> -E OR B> -F OR B>-G OR B>-H OR B)-I OR C>-D OR C>-E OR C>-F OR C>-G OR C 

>-M OR 0-1 OOTO 440 ELSE 400 

400 IF D> -E OR D> -F OR D> -G OR D)-H OR D)-I OR E>-F OR E>-G OR E> -H OR E)-I OR F 

>-G OR F>-H OR F)—I OR G)-M OR 0>-I OR H)-I GOTO 440 ELSE 640 

410 IF A) -B OR A> -C OR A>-D OR A>-E OR A>-F OR A> -G OR A)-M OR A>-I OR A> - J OR B 

>-C OR B> -D OR B) -E OR B>-F OR B>-G OR B>-H OR B>-I OR B)-J GOTO 440 ELSE 420 

420 IF O-D OR O-E OR C>-F OR 0-0 OR C>-M OR 0-1 OR O - J GOTO 440 ELSE 430 

430 IF D> -E OR D>-F OR D) -G OR D)-H OR D>-I OR D> - J OR E>-F OR E>-G OR E>-H OR E 

>-I OR E> - J OR F> —G OR F> -M OR F>-I OR F>-J OR G>-M OR 0-1 OR 0>-J OR H)-I OR H 

>-J OR I>-J GOTO 440 ELSE 640 

440 IF TX-1 GOTO 630 

430 IF TX-2 GOTO 620 

460 IF TX-3 GOTO 610 

470 IF TX-4 GOTO 600 

480 IF TX-5 GOTO 390 

490 IF TI-6 GOTO 380 

500 IF TI-7 GOTO 570 

510 IF TX-8 GOTO 360 

520 IF TX-9 GOTO 350 

330 IF TX-10 GOTO 340 

340 NEXT J 

330 NEXT I 

560 NEXT H 

370 NEXT G 

530 NEXT F 

390 NEXT E 

600 NEXT D 

610 NEXT C 

620 NEXT B 

630 NEXT A 

640 X-X*l 

630 FOR 2-1 TO (13-T2) 

660 IF 2-A OR 2»B OR 2-C OR 2-D OR 2-E OR 2-F OR 2-G OR 2-H OR 2-1 OR 2-J GOTO 
700 

670 IF UDS-1 GOTO 680 ELSE 690 
680 PRINT *8-"1-t 
690 PRINT -1-xxGOTO 730 
700 PRINT "X”! 

710 IF UDS-1 GOTO 720 ELSE 730 
720 PRINT *8.“X“: 

730 IF 2-«13-T2) GOTO 740 ELSE 790 

740 PRINT" : «Rk.nr."SXt">":PRIN7 CHR*C3) 

730 IF UDS-I GOTO 760 ELSE 770 
760 PRINTR8."«Rk. nr. "!X;")" 

770 IF A-< <13-T2>“<TX-1)) AND Z-CI3-T2) GOTO 780 ELSE 440 

730 PRINT "RK.NR:"XXXP9IN7 CHR*»l3):"ER DEN SIDSTE”:PR!N" CHR*i;3>:"PROGRAMME 7 E 
R SLUT. "XSTOP 
790 NEXT Z 
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1220 talatr*:- kommando** * - IN kommandO*:LEN<kommandO*>>** * 

1230 maxi- LEN<talatr*>! do*:- 1 
1240 REPEAT 

1230 WHILE NOT <tal*tr*<oo*: > IN "01234567*9.--» AND PO*< max DO ooa:- do* 
1260 IF poa'max THEN 

1270 talti- -- 

12*0 WHILE tat*tr*.po*i - IN -01234567*9.-- AND po*< max DO 

12«0 talti- tal**t«latr*<po*! >i ooat- po**i 

1300 ENDWHILE 

1310 antali- antal* it para m (antal >i- VAL<talt) 

1320 ENDIF 

1330 UNTIL poa-max OR anta)-4 

1340 ENDPROC paramatar 

1330 

1360 PROC atatua 
1370 PRINT CHR*< 12) 

1380 PRINT 'Qjapunkt - "ipjapunk^ 1 >|-,-idj*punkt<2)«-,-rPj*punkt<3> 

1390 PRINT 

1400 PRINT -Rafaranca afatand • *:ra«a«atand 

'*iu PkVnT 

!Ijn nlul »"’*■ • ymin • ■lyi.int 

1430 PRINT ", ymax ■ "lymax 

1440 INPUT AT<10.34>.-Tryk «raturn;*i talatr* 

1450 PRINT CHRt<12> 

1460 ENDPROC atatua 
1470 

14*0 DIM kommando* OF 60.ta1* OF lO.talatr* OF 39,n*vn* OF * 

1490 DIM ♦*k(4,4>,xyx<4,4>,t*mp<4.4).Daram<4*.p J *punkt<3>.r**<3>.r*a_t*mp'4» 

1500 // Indlaaning *♦ tagningan <1 datta tll«»1da at #ly» 

1510 READ antpunktar.anthmar 

1520 DIM punkt<antpunkt*r.3>.*tartd*ta»antpunkt*r.3>.lim*<antlinj*r.2> 

1530 II indhaar kun halvdalan a< ♦lyat, ♦ordi dar apajiaa i x-akaan 

1540 FOR m- 1 TO antpunktar DIV 2 DO 

1550 READ atartdata<n,1».atartdAt4(n.2>,atartdata<n.3> 

1560 NEXT n 

1570 FOR m- 1 TO anthniar DIV 2 DO READ lin«M >.hnia<n.2> 

1580 DATA 66.94 // antal punktar.antal Umar 

1590 // data til dan ana aida ** ♦lyat 

1600 DATA 30.0.0.19.3.0.19.2.2.19.0.3.19.-2.2.19.-3.0 

1610 DATA -21.3.0.-21,2.2,-21,0.3,-21 ,-2,2,-21 .-3.0.-21.0.10 

1620 DATA -20.2.22.-11.2.22.0.0.10.17.0.3.-20.11.0.-14.11.0 

1630 DATA -5.3.0.-20.-2.2.-20.-3.3.-20.-2.6.-20.-2.8.-20.-3.9 

1640 DATA -20.-4.*.-20,-4.6.-*.-2.2.-12.-3.5.-12.-2.6.-l2.-2.8 

1650 DATA -12,-3,9,-12,-4,*,-12,-4,6 

1660 // data til hmarna. dar akal tmtkkaa mallam punktarn* 

1670 DATA 1,2,1,3.1.4,1,5,1.6.2,3,3,4,4,5,5.6,7.8,8.9,9,10.10.11.7,2 

1680 DATA 8,3.9,4,10.5,11.6.9,12,12,13,13.14,14,15,15.16.7.17 

1690 DATA 17,18.18.19,12.15.20.21.21.22.22.23.23.24 

1700 DATA 24,25.25.26.26.21,27,28.28,29,29.30.30.31 

1710 DATA 31.32.32,33,33,28.28,21.22,29.30.23,24,31 

1720 DATA 32,25,26.33 

1730 // nu tpajlaa <lyat 

1740 ♦orakydpkt:- antpunktar DIV 2s ♦orakydlm.- anthniar 01V 2 
1750 FOR ns- ♦orakydpkt*! TO antpunktar DO 
1760 «tartdata<n,3>:- -*tartdata<n-^or*kydpkt.3> 

1770 FOR npi- 1 TO 2 DO *tartdata(n,np>:« atartdata(rr-^or*kydpkt,np> 

1780 NEXT n 

1790 FOR ns- ♦orakydlin* 1 TO ant Umar DO 

1800 FOR nls- 1 TO 2 DO Iima<n,n1)s« lrnia<n-^or*fcyd1in,nl>*^or*kydpkt 
1810 NEXT n 

1820 II apajling alut 

1830 ENABLE arror 


1840 PRINT CHR*< 12> 

1850 atartop 
1860 REPEAT 
1*70 REPEAT 

1880 PRINT AT<1,1>iCHRt<30> 

1890 INPUT AT<1,1>,-»-i kommando# 

1900 UNTIL kommandotO-* 

1910 FOR poai- i TO LENCkom mando*' DO // lavar om til am* bogatavar 
1920 IF kommando*<poai»-*A* AND kommando#<poai><-*A* THEN 

1930 kommando#<poai)i- CHR*<ORD(kommando*<poai>>*32> 

1940 ENDIF 

1950 NEXT poa 

I960 kommando*!- kommando**’ <’i antali- 0 
1970 para matar( antal) 

19*0 IF antal<3 AND kommando*< 113> IN •♦ly ♦ak dra *ja" THEN 
1990 *ajl<-PARAMETER FEJL " «ara tal ♦orvantat.’) 

2000 ELSE 

2010 kommando*!- kommando*< 1 iLEN(kommando*>-2> 

2020 CASE TRUE OF 

2030 WHEN ‘♦tyt* IN kommando* 

2040 ♦lyt<param(1),param<2>,param(3» 

2050 WHEN ’♦aktor- IN kommando* 

2060 ♦aktor<param<1>,param<2),param<3» 

2070 WHEN -dra/ IN kommando* 

2080 dra/paramd >,param(2),param<3>> 

2090 WHEN ’ajapunkt* IN kommando* 

2100 IF param<3»0 THEN 

2110 FOR m- 1 TO 3 DO ajapunkt<n)i- param(n) 

2120 ELSE 

2130 ♦aJICKOORDINAT FEJL " x-»nr*dian akal vara atarr. and 0.') 

2140 ENDIF 

2150 WHEN *tagn- IN kommando* 

2160 tagn 

2170 WHEN *nulatil*-kommando* 

2180 atartop 

2190 WHEN -atatua’-kommando* 

2200 atatua 

2210 WHEN -a^atand’ IN kommando* 

2220 IF antal-0 THEN 

2230 ♦a jU-PARAMETER FEJL tal ♦orvantat’) 

2240 ELSE 

2250 ra^a^atand:- paramil) 

2260 ENDIF 

2270 WHEN *vindua’ IN kommando* 

2280 IF antal<>4 THEN 

2290 ♦aJK"PARAMETER FEJL " ♦lara tal ♦orvantat.’) 

2300 ELSE 

2310 IF paramO »param(2> OR param<3»param<4) THEN 

2320 ♦aJK*DEFINITIONS FEJL I VINDUE min atrra and max.-) 

2330 ELSE 

2340 xmins- param(l): xmaxs- param(2>: ymins- param<3>: ymaxi- param<4) 

2350 ENDIF 

2360 ENDIF 

2370 WHEN ’atop’-kommando* 

2380 CLOSE GRAPHICS 

2390 OTHERWISE 

2400 ♦ajK-KOMMANDO UKENDT •"> 

2410 ENDCASE 
2420 ENDIF 

2430 UNTIL kommandoP ’atop" 
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360 FOR M— l-*3«*-* TO 1 4639 ; READ fit Z-flSCf 
fl:*>—-*8—<7* RND flSC(fi*)>64) 

370 R*-RIGHT#<fl* . 1 > : X-RSC<fl* > —<48-<7 RND 
fiSC<fi*»64 • POKE N,X+16*Z NEXT M 
380 DRTR 00.00.00.00.00.10, 10.30.00.00 . 
00 * 7*1 . 00,00.00.00.00,00.00.00.00 . 18. 1 >3 . 
00 

330 DRTR 02.06.0C.18.30.60.40.00.7E.66. 
66.66-66,66 . 7E , 00 • 18 . 7*3,7*8 • 1 3 , 13. 13.7*E . 
00 

400 DRTR 7E.66.06.IE.78.60.7E.00.7E.06. 
0C ■ IE. 06 . 66 . 7-E . 00.06 . 0E . IE. 66 . 7*F • 06.06 . 

i ii i 

■4 10 DRTR 7E , 60.7E . 86 . M6.66.. 7E . O0.7E . 66 ■ 
60.7*E . 66.66 . 7*E • 00 - 7*E . 06.0C . 18. 18. 18. 1 © . 
00 

•420 DRTR 7*E • 66 . 66 ■ 3C . 66 ■ 66 - 7*E . 00 . 7*E .■ 66 . 
66.7*E . 06.66.7K . 00.01.01.01.01.01.01.01 . 

0 1 

430 DRTR FF.FF.FF.FF.FF.FF.FF.FF 
440 FOR M —14688 TO 14813•RERD R* Z-RSCC 
fl*)-48-<7 RND RSC(R$»64> 

: R*-RIOHT*<fi*.1) 

430 X—RSC<fl*>—48—<7 RND RSC<R*)>64> POK 
E M , X-* 1 6*Z : NEXT : PR I NT CHR*<8) 

POKE 33i-72, 30 

460 OOSUB 1140 PR1NT"<CLP.CRSR NED12>"T 
RB < 1 1 > *• < C VRN > I NSTRUKT I ONER Jx-'M M 

4 7*0 OET R* IE R*<>"J"RND R*0"N"THEN 47 

jTf 

480 IF R*-"J"THEN OOSUB 137*0 ____ 

490 S —0 POKE 33280.3 : PRINT" < CL R) ; POKE 

2040. 1 92 : POKE 2. 1 POKE 3.1 _ ____ 

3500 POKE 336333. 1 27 POKE 788.0'POKE 7*89. 

1 92 POKE 33263. PEEK < 353265 >RMD 127* 

510 POKE 33266.0 POKE 36333.129 POKE 53 

" 320 1 V-53248 POKE V-*- 1 6.0 POKE V-*-2 1.0 POK 
E V+23. 1 POKE V + 27 ■ 3 POKE V-*-2© • 0 
POKE V+29.1 

530 POKE V*39.6 POKE V+40 , 10 POKE 204 1. 

I94POKE V*S.?4 POKE V*3.50'B-1_ 

—.40 pop M— 1 TO I 2 PR T MT •' < OUL - SPRCE34 . OR 

oil.. . ‘ r.RSP VEHSTRE . INST> i " '■ 

-.".o pp I NT ” < r VOM . ■5POCE34 . OP On <CRS 

P VFnSTPF . INST. . . HEXT n M-^3278 . H-1 

—.60 PP I HT " < OUL . SP8PF34 . r.pein CRSR 

VEHSTRE . I NS I > . .r HOME > " OOSUB 1 O 1 O 

OOSUB 76R _ _ 

570 POKE V - 200 ■ POKE V*1 ■200 ■ POKE V.2,O • 
POPE V»3•O POKE V+21,3 

2-PEEK<M).PEM <M) __ 

500 FOP U ~ 1 TO 20 HEXT H:Z-PEEK563t0.B 
nr. 15 

530 H-H—<2-13 MUI. M 

l=i_—< 2—2 our. L<34 > + 

600 POKE V+3.42+H48 

RUB 255 POKE V-H6.<^ 

610 IP PEEK<53278'-3 OP 

020 IP PEEK < 1 024.L-.404H > OP THE14 530 

330 POKE 54276- 0 : POKE 54283.O • POKE 5427 

C.17:POKE 54283,33 _ _ . 

640 FOP H- x. TO 30 STEP 20 ■ POKE 54273,11 
POKE 54280,255-M POKE 2041.194-N740 

650 POKE 1024+L+4O4H, 32 : POKE 204 1.194 -J 
=- T — l : S—S-p 1 O : OOSUB 1010 IP J>0 THEM 530 
€30 POKE 53230.O POKE V+21,O 

€20 PRIUT"< CLR.CUL.CRSR NED9,SPRCE3 > i i . 


10 POKE 54296, 15-POKE 5427.'. 12 POKE 542 
23,0 POKE 54234,12 POKE 54285.0 

20 R4v"0123456789RBCDEF DIM R*<I5> FOR 
H-0 TO 15 : fl»<N>-nlD«<R*,N*l,l>„NE^r 
30 POKE 53230.0 POKE 53231.4:PRIHT <CLR 
.OUL.CRSR HED12>''lTRB<12); 

"VENT LIGE 23 SEK." _ _ _ __ _ 

40 DOTH RD,19.D0,29.01,D0 03.40.31,ER.8 

D, 19,DO,35,02,DO.14,CE-0O,DO,3D,00■DO, 

50 DATS 17,F0,03,4C.39.CO,S9.01.85.02.4 
C,OF.CO,EE,00,DO,3D.00,DO,C9-OO,F0,03, 

60 DATA 33,CO,39.00,35,02,4C.OF,CO.35.0 
3,DO.14.CE,O1,DO.3D.O1,DO.C9,31,FO,03. 

20 DBTB 65,CO,33,Ol.85,03,4C,3B.CO.EE,O 
1,DO-8D01,DO,C9,D1,FO.03,4C,65,CO.33. 

SO DBTB 85,03.4C,39,CO•3D.3C,03.DO.12•E 

E, F8,02,3D,F8,02,C3,C3,DO.13,33,01,SD, 

30 DBTB 03,4C,63.CO,CE.F3.02,BD,F3,02,C 
3,BF,DO,03,33,00,3D,3C,03.4C,63.CO-4C. 

100 B D3T3 FE FOR H—43152 TO 43236 PE3D 3 
» Z-3SC<3»>-40-<2 BHD 3SC<3*>>64> 

110 I OHT* <R* , 1 > : X-RSC <R*>-»©—<7* RND 

3SC<3*»64> POKE H. X*16*rNEX T N 

120 D3T3 OO,2E,OO.03.FF,CO,OF,FF,FO,IF, 

FF,F8.3F,FF,FC,3F,FF,FC,2F,FF.FE.22,1F, 

130 E DBTB F3,FF,CF,E0-FF.02,EO.7E.02,EC, 
2E , C2 , EC . 2E , C2 , EC - 2E , C2 - FT 7 , FF . FF , FF . FF , 

140 F D3T3 FF.FF,FF,F2■FF,EF,E3.FF,C2,C1, 

F T5! 3 DRTfl F 00?7E?lo,03,FF.CO,OF,FF,FO,1F, 
FF,FS,3F,FF.FC,3F,FF.FC.2F,FF,FE,22.FF, 

160 E DHTR F3,FF,CF,EO.FF,02,E6,2E,62,E6. 
2E- 62, E6,2E.62,EO, 2E,02,FF,FF,FF.FF,FF. 

120 F D3T3 FB.FF,DF,F1,FF,3F-EO.FF,02,CO. 

7 180 3 DRTfl 3 00?7E?00,•FF,CO•OF.FF^FO•IF, 
FF,F©.3F.FF,FC,3F,FF.FC,2F,FF,FE.22.FF. 

130 E D3T3 F3.FF.CF,EO,FF,02.EO.2E.02,E3, 
2E,32-E3,2E,32.E3-2E,32,FF,FF,FF,FD,FF, 

200 B D3TR F0, FF-IF, FO, 2E,OF, EO. 3C - 02- CO, 

1 1i 0 3 for"nS iIzee to 1242 s read b* z—bsc< 

B 220 4 R»-RIGHT*<R»! 1 ) ^ X-RSC < 3*) -43-<2 BUD 
BSC<3*>>64>-POKE N,X+16*2^NEXT H 
230 D3T3 7E,66.66,2E,66,66,66.OO.20,6C. 
6C- 2E, 66,66,2E,00. 2E,66,60,60,60,6i - . 2E, 

24O 0 DBTB 23,6E,66,66,66,6E.78.00.7E.60, 
60,2E, 60. 60- 2E.OO. 2E.60 - 60, 2E.60,60,60. 

250 0 D3TR 2E , 66,60. 6E - 66 • 66.2E , 00,66_-6« , 
66,2E,66.66,66,OO,2E,13.18,IS,18,IS- 7 E■ 

Z60 0 D3T3 2E.06,06,06,66,66-7E.00•66^6C, 
7*8 7*0 x 7*8 x 6C . 66 , 00 - 80.80.80 .• 80 - 80 - 80 • r E • 

220 0 D3T3 63.22-2F,6B,63,63-63,00,66^26. 
26,2E,6E,6E,66,OO,2E,66,66,66,66,66..F■ 

290 00 3T3 2E, 66- 66,2E,60,60,60,00. 7E .66 . 
66,66,66,2C, OE,00- 2E,66,66,2E. 28,6C•66 - 

230 0 DBTB 2E, 66,60,2E , 06, 66,7E , 00.2E 1S . 

18, 18. 18. 18. 18- 00 x 88.6b, 88 * 88 . 88 •88 • • 

300 0 DRTfi 88 x 86 • 66 > 66 > 66 • 3C - 1 8-00 -_8 >*63- 
63 x 6B x 7F > 7*7* . 63.00.68 • 66 • 3C .- 1 8 > 3C ■ 88 • *=-•-> • 

00 

1 » » DR T R ^6 • 66 • 66 ■ 3C • 18- 18. 18* 00 ■ 7*E . 06 ■ 
fir . | P: . sH* . 60 • 7E • 00.7F . 6C . 6C • 7F . 6C ■ 6C , 6F - 
on 

DRTR 7*E - 66 • 6E 7*E • 7*6 - 66 • 7*E . 00 • 1 8 • 00 • 
7F • 86.7*E • 66.66.00 . FF . C3 .18.7*E • 66 . DB.E7. 
FF 

:30 DRTR 18. 18. 7*E > 7*E • 18- 18. 18. 18.00 . t'0 

fin . 00 . 00 . 00 . 00.00 • 18 - 18 . 18 . 18 . 18 - 00 - 18 - 
00 

DFITR 7*8 - • 7*8 . i>0 - 38 • 30 . 38 - 00 • 00.81. 

Off • BD • BB. DB -81- 00 - 00 .. FF - ©D - FF D5 - RB • FF - 
00 

-:=i0 DRTR 00.3C.56.B7-B3.BB.5fl.3C 


> ♦- < Z: — 1 -4 RND H>0 > : 
1 FIND L->0> 

16 + L.*8 POKE 

PEEK' 53279> —3 1 


680 PRINT 


710 PRINT 


730 PRINT 
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i aene program er au aet lille 
spogelse, der skal spise diver¬ 
se ting og undergd det store 
spogelse. 

Programmet er selvtorklaren- 
de. men der er IKKE CHECK¬ 
SUM PA DATALINIER. sd veer 
meget omhyggelig med ind- 
tastningen. Ellers vil maskinen 
"flippe" helt ud og program- 
met kan mdske gd tabt. 

Det store spogelse er interrupt- 
styret. Det kan iagttages ved 
at trykke RUN/STOP RESTORE. 
Se selv, at spogelset stadig be- 
veeger sig. . . 

Programmet er ellers selvior- 
klarende.D 

Jacob Gdidsted 


620 V-1064+INT<RND< 1 >»960.« IF PEEK<V><> 
32 THEM 320 

330 POKE V , P =MEXT N=PRINT"(HOME.HVID.8P 
RCE> SLURP I EM KIRKEGARD. . . " 

POKE ^4276 . O POKE '.4276.33 
3-40 POP M —0 TO 110 STEP. 5 POKE 54273» M ; 
NEXT M = PRIMT" < HOME. SPACE24> " : RETURN 

330 J — 30 P — 3-4 : POKE 3323 1,2 : FOR M—1 TO J 
330 V-1064+INT(RND( 1 )*960> : IF PEEK < V > O 
32 THEM 330 

370 POKE V , P MEXT N:PRINT"(HOME,HVID.SP 
RCE > RHHHH I t NlPOLER . _ . " : POKE 34273,0 
POKE 34273,129 

330 POR M—0 TO 100 STEP.3 POKE 54273.M 
MEXT M : PRIMT" < HOME, SPRCE19>" • RETURN 

330 J"60 : P"33 : POKE -53231,3 : POR N-1 TO J 

900 V-10344-IMT<RMD< 1 >4960> IP PEEK<V><> 

32 THEM 900 

910 POKE V , P MEXT N:PRINT"-HOME,HVID,SP 
RCE > MMMHH ! I BOLS JER . . . " : POKE 3-427*3.0 

:POKE 54276,17 

920 POR M—0 TO 100 STEP. 3 POKE 34273 , M 
MEXT M = PRIMT" < HOME, SPRCE20> " RETURN 

930 J-33:P-33:POKE 53231,9 ; POR M—1 TO J 

940 V-1034+INT(RMD( 0*960) IP PEEK < V > <> 
32 THEM 940 

950 POKE V, P : MEXT M : PRIMT" « HOMF,HVID, C P 
RCE > MUMS I I C34 —ERE. . . " - POKE 34276,0 

:POKE 54273,33 

930 POR M—0 TO 100 STEP.3 ; POKE 34273,M 
MEXT N: PRINT" (HOME, SPRCE20 > " RETURN 

970 J —20 P-37 : POKE 3323 1 -1-4 POR M—1 TO 

J 

930 V-1034+IMT(RMD(1)*930) IP PEEK(V-<> 

32 THEM 930 

990 POKE V , P MEXT M PRINT"<HOME.HVID•SP 
RCE > UHLRLR f I MtPLKUGLER. - - " 

»POKE 34276,0 POKE 542/6.129 
1000 POR N—0 TO 200:POKE 34223,M MEXT M 
: PRIMT" < HOME , SPRCE23> " ; B —0 RETURN 
10 10 Z4-LEPT* < •• < HV I D >00000" . 7*—LEM< STR I 
S > > > -♦-M I D* < STR* < S > , 2 > 

1020 PRIMT"< HUMP . L . GROM>" . TOP<35> . "SCOP 
F" PRINT TRB(33)i74 RETURN 

1030 PRINT"<OUR>" POKF 53280 4 POKE 332 

3 1 • P- POKE V-*-2 I . 0 

1040 POKE 3427*7* • O POKF 54223.240 POKE 3 
427*3 • O : POKE 34276. 33 • POR M— 1 TO 4 

1030 R-RSC< MID* < "GOME" , N > > —34 POP H—O T 
O 11 POKE 1030+N+404H,PFOR Z—1 TO 2 
MEXT Z 

1O30 POKE 1O38*M*40*H,32■POKE 34273,H M 
EXT H POKE 1318+M,R MEXT M POR M—1 TO 4 
107*0 R—ASCCM I D*< "OVER" . N> >—34 POP H —24 
TO 13 STEP—1 POKE 1 043*M-*40*H . R 
POR Z—1 2 

1030 MEXT Z POKE 1043+M+40*H.32 : POKE 34 
273.H:NEXT H POKE 1523+M,R■MEXT M 
: POKE 54223 , 0 

1090 PRINT TRB< 13> ; " RSR ME D . OUL > SCORE 

" ; S 

I1O0 PRINT T RB< 3 CVRN . CRSR MED > TRVK 

XP T REX MFD POR RT STRRTE. " 

I 1 10 POKE 54222 .. 12 POKE 54220.0 

1120 IF(PEEK < 33320 > AND 16)-16 THEM 1120 

1130 GOTO 490 

1140 POKE 53281,1:PRINT"(CLP■BIRR)" Z*«» 
" .mil rnilMFFV" TOR • I—1 TO 20 
i 4-.CJ: l IIP*:. 1Z> NEXT M 
1150 POR N» 1 TO 1 9 B-* — B*-«-" " NEXT POR N 

-O ITi 12 STEP. 23 

• PR T MT " < HOME • CRSR NFTH^ n 

Vise. FOR N— J TO 14 STEP. 23 : PRINT" (HOME. 

CRSR NED4 ) ■' J LEFT* < B» . H ) ; Z* • NEXT 

WTHT ' KHnMF .CBSP r. SOP F I 

'llT-o ?*>".TAMES EONB" FOR TO I O STEP 

.I5TRlHT"<BLHB.HOME. _ , 

rPSR NEDS > •• R I C.HT * ‘ . H> ME. <T M 

11SO FOR M“1 TO IS STEP.2SPRIMT FHOME• 
r p-r p MFnft > | FFT* < B* , M > i Z* • MEXT M 

Ti90^ PR I MT " < HOME > "LEFT *<C* , 10> ^ B* • < SOP 

T .TU FPTNT"'HOMP ."LFFTI'I »• 

! - flfi PR TMT " BI^RR • VOI I TiO < ^-^ipT JMOT < T :| AO • 

v?;r/^u-YfiT^^vTiEVP^"-^:- ^^vV.r,n 

I 1 rp I NT " MR P n I flMONP5FOREVER. " ^POKE 3 

"pr.rs-n 4 ^?MT^n, p. 

C.R0M ." .1 EPT * v C * . 1 0 > . L.EF T* • F:* . 1^>* 

I 240 T PrVmT K 1-EPT*?B* • J '*^ ^ V 1 T 

r » L Rf.FR. " FOR M— 1 TO 1 500 : NEXT M 

1230 PRiNf"(CLR,LILUft >" Z»="VOU APE" PO 

R N “?pRIMT"<HOMECRSR NED4>";RIC.HT*<'7 *.H i 
> : MPXT M 


’ < HOME , 


HOME , 


* ( SOP 


< BLAA, CRSR 

NED > «-«-«■ 

*- 4 

4 - 


* 

* 

X 

T 


»«» 

* 

* 

XXX 

T 

*- 


* 

* 

X 

r 


4 4 

** 

* 

XXX 

't 

POKE 

34223, 

1 2 

: POKE 

54 


1230 POR M—1 TO 13 STEP.23 PRIMT* 

CRSR MED4 >" ; LEP1 »< B* • M > ; Z* • MEXT 
2#-"GHOSTLV GHOST IE" 

1220 POR N-0 TO 13 STEP.23 PRIMT• 

CRSR MED3>";RIGHT* <Z*- M>=NEXT M 
FOR M—1 TO 12 STEP.23 
1280 PRINT"<HOME,CRSR MED3>";LEPT*<B*.M 
>;Z* NEXT M 

1290 PRIMT"< HOME >" ; LEFT*<C*, 8 > ; B* , 

T > IH" 

1300 PRINT" 

4 *** XXX ttt 000’ 

1310 PRINT" 

0 •• 

1320 PRINT" 

000 " 

1330 PRINT" 

0 " 

1340 PRINT" 

000 ** 

1350 POKE 34223,0• 

222,0 POKE 34228,240 

FOR M—233 TO 0 STEP-.3 
1330 POKE 34223,N NEXT M POKE 34222,12= 
POKE 34228.0 POKE 33230,6=POKE 33281,4 
:RETURN 

1320 POKE 33280,6=POKE 33231,3=PRINT"<H 
VID,CUR CRSR MED > " ; TRB< 13> i 
"PORHISTORIEM." 

1360 PRINT PRINT" MANGE HRR SIKKERT SPE 
KULERET PA, HVRD* 

1390 PRINT¬ 
ER- DE KAN" 

1400 PRINT- 
LLER, SOM" 

1410 PRINT• 

LE.RUNDE OG- 
1420 PRINT’ 

TEN IMOEM" 

1430 PRINT¬ 
RANT AS I , " 

1440 PRINT" 

6PISES." 

1430 PRINT’ 

SSE DVRS" 

1460 PRINT” 

FAKTISK" 

1420 PRINT” 

1480 PRINT” 

LUKSUS-" 

1490 PRINT” 

PUTERSPIL," 

1500 PRINT” 

NATUREIOE" 

1510 PRINT” 

STIK I PORT 

1520 PRINT = RRINT 
URN " 

1530 WAIT 192, 1 : PRINT” < CLR , HVID? " •* PRINT 
TAB<9>;"RESTEN AP FORHISTORIEN."PRINT 
1340 PRINT• 


SPUGELSERNE PRA PACMAN SPIS 
JO ABENBART IKKE U I BE DE PI 
PAC—MUNDENE SRISER,OG BE GU 
SMAPEBE PAC-M4ND ER DER N4S 
MrtRIMG I. BANEN ER LAVET AP 
OO SADAN NOGET KAN JO IKKE 
JEG HAR DERPOR UNDERS0GT BI 
SPISEVANER — RESULTATET VAR 
OVERRASKENI 


MEGE 

JEG 


1SKENDE... 

HAR MED MIT tUX DE UUXE 

KAMERA ORTAGET ET UILUE COM 

DER VISER DISSE DVR I DERES 

OMOIVEUSER.":PRINT" SHT JOV 

2. ’’ 

TAB<14);"(GUL)TAST RET 


RODE 

1330 PRINT" 
GENFURD." 
1330 PRINT" 
AR EN NOGET" 
1320 PRINT" 
N TIU IND—" 
1380 PRINT" 
UIG ALTID" 
1390 PRINT" 
• SPACE > PI- ED . 

1300 PRINT" 
BE PR0VE AT" 
1310 PRINT" 
KOMMi MDE. " 
1320 PRINT" 
\ IXBRI IOEREM" 
1680 PRINT" 
I \ P BARR" 

| F.40 PR 1 IT ” 
SC . " 

1650 PP T NT” 
SP0C.FI SER • " 

1 ^;p.0 RR I MT " 
I r. MANGE " 

I 670 PRINT" 
1330 PRINT" 
T C64-EJERE" 
1 .=.90 PR 11 IT " 
DCRPS MA—" 

1200 PRINT" 
PER SPISER" 
1210 PPINT" 
TP IUTERES-" 
I 220 PPINT- 
1 4 *> . " < CRSR 
I 290 1*1 A I T 


I SPILLET SER DU LIl.LE UVSE 

GHOST IE, OO ET AP DE ST0PRE 

DE ST0RSTE AP GENGANOERNE H 

RNDERLEDES ADFflPD MED I IPNSV 

TAGEUSE AP F®DE. DE VIU MEM 

HAVE (SORT >FULDSTfiNDIO(HVID 
MAP DE SRISER-" 

EVENTIJELLE ANDRE ANDER VIL 

SKP4MME VrtK VED AT BIDE VED 

MU SP0RGER LrtSERENXSPILUEPE 

MASKE. HVORFOR GHOSTIE SA I 

FIHDER ET ANDET STED AT SRI 

SVARET ER, AT DER ER MANGE 

OG DPR ER IKKE SA FORFflRDEl 

STFDFR MPD AHDF-F^DE." 

TIU SLUT VIL JEG BEMflRKE, A 

IKKE BEH0VER AT PRVGTE POR 

SKINER. LANGT DE FLESTE UHV 

KUN HELT NVt MASKINER. BRUG 


SERER DEM IKKE-" PRINT TAB( 
IIFD .ni IL>TAST RETURN < HOME > " 

97.1=RETURN 
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Nej, du har ikke fdet rulle- 
marie til rddighed, men du 
skal derimod selv ud og deter- 
minere bomberne, inden de 
springer. 

Men pas pd. du har meget 
kort tid. ter de springer. Samti- 
dig md du ikke gd tilbage i di¬ 
ne egne fodspor. Du idr ekstra 
points, hvis du gdr ind i flage- 
ne. 

Folgende tegn skal indtastes 
som brugerdelinerede AB. 
CD, EG, FH. IK, JL, NP, MO, RT. 
AS. De forekommer i linierne 
70, 75, 110, 4050,4100, 6000, 
7010.□ 

Henrik Jensen 


SPEC- 

| 

TRUM 

l 




1 LET n-8 CO SUB 9*3 

2 GO sue 8*3 LET hs-0 

3 LET lv-3 LET 1-1 LET sc«n 

4 LET x*-"111 14331101- LET x*»"32l32121216" 

5 BORDER 4 INK 1 PAPER 6 FLASH n BRIGHT n OVER .v INVERSE n^ CLS 

6 PRINT •!;-*» Hade by HKJ February 19B5. **" 

7 BEEP .83.1 BEEP .03.2 BEEP .03.3 BEEP .03,4 BEEP .03,3 
10 FOR a-n TO 240 STEP 16 FOR b-173 TO 13 STEP -16 PLOT a.b 

20 DRAW n.-13 DRAW 13,n DRAU 1,1 DRAW -13,n DRAW n.13' DRAW 1,1• DRAW 
13,n. DRAW n, -13 
30 NEXT b NEXT a 
40 LET x-16 LET *-10 
50 LET b*«-493876- 
60 FOR a-1 TO 1*4+5 

65 LET P-2*INT <RND*10> LET r-2*INT ( RND*10) 1 LET 4-2KINT <RND*13>‘ LET 
S-2*INT <RND*16> 

67 IF p-r AND 4—s THEN GO TO 63 

70 PRINT AT r.»i INK 2; PAPER 3;"H0“.AT r+l.s;"NP“ 

73 PRINT AT P.4, INK 0, PAPER 6."EG";AT P+1.4;"FM" 

80 NEXT a 
83 FOR t-1 TO 5 

90 LET a-2*INT 'RND*10> LET b-2*INT 'RNO»16> 

100 IF a-* AND b-x THEN GO TO 90 

110 PRINT AT a, b; BRIGHT 1. FLASH 1, INK 4, PAPER nj"IK";AT a + l.bj"X" 

113 PRINT AT 20,n; INK 3;"."< TO i) 

116 PAUSE 100 

117 FOR J-i-1 TO n STEP -1 

120 PRINT AT y.x, INK 1. PAPER 6."AB";AT *+l.x;"CD" 

136 PRINT AT 21.n,"Score "iSC," ";AT 21,13;"HiRh ";hs>AT 21,23i"Lives•";Iv 

133 PRINT AT 20.j;" - 
140 LET a*-INK£Y* 

130 FOR c—1 TO 6 

153 IF a*-b*< c > THEN LET d-c GO TO 170 
160 NEXT c 

163 NEXT J. GO TO 3*3 

170 IF d>2 T1CN PRINT AT y.x; IW 6.“ ".AT y+l.x;" " 

173 LET x-x+2*< d-4 >-2*( d-3 > LET y-y+2*<d-6>-2*<d-5> 

180 IF d>0 AND d<-2 THEN FOR u-n TO 1' FOR v-n TO 1 PRINT AT y+v.m LET 
4-USR 32084 LET 4-USR <32000+<42 AND d-l)>- NEXT NEXT u LET x-x+<2 AN 
D d-2>-<2 AND d-1) GO SUB 1#3 LET J-J-l IF J THEN GO TO 133 
183 IF d>0 AND d<-2 THEN GO TO 3*3 
190 GO SUB 1*3 
200 LET a-ATTR <y.x> 

203 IF a-34 THEN LET x-x+2*<d-3>-2*<d-4 ) ■ LET y-y+2*<d-3>-2*<d-6> 

207 GO SUB 1*3 

210 IF a-42 THEN BEEP .003.30 BEEP .003.23 LET sc-sc*140 
220 IF a>63 THEN GO TO 6e3 
230 IF a-48 THEN GO TO 7e3 
240 LET sc—SC+10 

230 BEEP .01.<12 AND d-6 >♦<d< >3>♦<3 AND d-3>*<17 AND d-4 > 

300 NEXT j• CO TO 3*3 

1000 LET x-x*< 32 ANO x—2 >-<32 AND x-32> LET y-»<20 AND y — 2 >-<20 AND y-2 
0) RETURN 

4000 aS PRINT AT 20, n; INK 0, PAPER 6; "EGEGEGEGEGEGEGEGEGEGEGEGEGECEGEGF 
HF^MFHFHF^HFHFHFHFHFHFHFHFHFH" 

4003 LET b-2*!NT ' RND* 13)' PRINT INK 2; PAPER 3,AT 20,b;“nO"iAT 2l,bj"NP" 
4010 PRINT AT 10.1;"Press an* key when aan aPPears over the fla« 

4020 FOR a-1 TO 230« NEXT a 
4030 PRINT AT 10.n,,,. 

4040 FOR y-n TO 18 STEP 2- FOR x-n TO 30 STEP 2 
4030 PRINT AT *,x j"AB">AT y+l.x;"CD" 

4060 FOR a-n TO 1 IF INKEY§< >"* THEN GO TO 4100 
4070 NEXT a 

4080 PRINT AT y.Xi" "; AT y + 1,x;“ "• >CXT x- NEXT y 

4003 PRINT AT 10,n; FLASH 1;’ FAILED' FAILED' FAILED' FAILED!" 

4083 FOR a-233 TO n STEP -3- BEEP .01.a/10 OUT 234.a NEXT a 
4087 FOR S-l TO 30 NEXT a 
4090 RETURN 

4100 PRINT AT y.x;" ";AT yel.x;" “ FOR a-y + 1 TO 20 PRINT AT a.x;"AB"iAT 
a*l.x;-CD"' PRINT AT a-l.x;" ■< BEEP .01,« NEXT a 

4110 IF x-D TMfcN LET SC-SC+4e3-< 30»* > PRINT AT 10, n; FLASH 1;" BONUS" BO 
NUS" BONUS" BONUS"*. FOR 8-1 TO 3 FOR A-30 TO 13 STEP -1 BEEP .003.A. 
NEXT A NEXT 0 FOR A-1 TO 30 NEXT A- RETURN 
4120 GO TO 4083 

3000 PRINT AT 20,n;- •• FOR S-n TO 233 STEP 3 BEEP .01.1/10- OUT 234,a NE 
XT a 

3020 GO TO 7e3 

6000 PRINT INK mAT *,x;"EG";AT *»l,x;"FH" 

6003 FOR b-1 TO 5 FOR a-30 TO 13 STEP -1 BEEP .003,a NEXT a- NEXT b 

6010 LET sc-sc+le3 

6023 LET x-x+2-<4 AND x-30> 

6027 PAUSE 30 

6030 NEXT t LET i-l-<l>14>« LET l-l + l 
6833 GO SUB 4e3 
6040 GO TO 3 

7000 FOR a-1 TO 30 LET b-<a/2-INT <a/2>>- PRINT INVERSE bi OVER 1 * AT *.x; 
• ";AT yel.x; - •> NEXT a 

7010 PRINT AT y.x; INK 7, PAPER n;"OS";AT y4l,x;"RT" 

7013 FOR a-1 TO II- BEEP VAL <y0<*>V4.VAL <X*<«>>-1- NEXT a 
7020 LET lv-lv-1- IF lv THEN GO TO 3 

7030 IF sc>hs THEN PRINT AT 21.|7jh*j” • LET hs-sc PRINT AT 19.n; FLASH 
l; INVERSE li" NEW HIGH SCORE!' 

7040 PRINT AT 20,m FLASH li* Press any key to May aoaln " 

7030 IF IMKEYt< >"" Tl€N GO TO 7030 
7060 IF INKEY*--■ THEN GO TO 7060 
7070 GO SUB 8230 CO TO 3 

8000 PAPER n FLASH n BRIGHT n INVERSE n- BORDER n- OVER 1- INK 7 CLS 
8010 PRINT TAB 10i INK 2- PAPER 3; FLASH li".“ 

8020 PRINT TAB 10. INK 2 PAPER 3. FLASH 1;" "; FLASH ni INK m PAPER 6;"BL 
OKNAN', FLASH 1. INK 2; PAPER 3." " 

8039 PRINT TAB 10; INK 2, PAPER 3; FLASH 1j"." 

8040 PRINT ■ The Object of this «aMe Is to defuse the TNT before the lines 
rscale at the botto- Indicates tiMeuP and the bomb explodes. Ifthis haPPe 
ns you will lose one of your three lives." 

8030 PRINT * After 3 screens of avoldln* skulls,9alnln« Points by landln 
Ron flaos and defusing bombs, stage 2 Is reached" 

8060 PRINT “ You must Press a key when the man is over the flaR for a bonu 
sof up to 4000-the quicker you are the greater the bonus'" 

8070 PRINT " Stage 1 then begins again but now with less time'" 

8080 PRINT "Good Luck"' 

8200 PRINT *1; FLASH 1."Press any key to begin." 

8210 IF INKEY*<>— THEN GO TO 8210 
8220 IF INKEY*--- THEN GO TO 8220 
8230 aS 

8240 PRINT AT 3,3. FLASH 1; "Enter level <0 to 9>"" FLASH n;" 0 - Easy 


9 - Hard" 

8245 PRINT AT 15.n."-Controls """ 3-Lef 

t 8-RlRht"'" 7-UP 6-Oown" 


8247 PRINT " 4-Left Scroll"" 9-RlRht Scroll" 

8230 LET a*-INKEY* IF a*<"0" OR a*>"9" THEN GO TO 8230 
8260 LET :-32-2*<VAL a*) 

8270 PETURN 

9000 RESTORE 9050 FOR a-USR "a* TO USR “t“*7 READ b POKE a,b NEXT a 
9010 RESTORE 9100 FOR a-32000 TO 32138 READ b POKE a,b NEXT a 
9030 RETURN 

9030 DATA 13.79,63.9.11.30.60,63.240,242,-4,144.176,120,60,-4,63.63.b,47,6, 
b.30,62.-4.b.b,244,96.96,120,124 

9031 DATA 7.31,b,37,b.63.29.7.103.242.-4,31,7.-1,-4,96.224,248,b.136.b,-4,1 
84,224,230,173.63.248.224,127.63.6 

9032 DATA 0.1.3.15 63,119.99,247,244,245,b.117,127.63,13,3,192,128,192.240, 
-4,238.198.239.47,173.173.174.-1,-4,240,192 

9033 DATA n, 3.14.62,126.62,14,0.n.b.b.b,b,b.b,b.124.-4.60.-4.60,-4,b.b.124 . 
12.b.b.b.b,b.b 

9034 DATA 1.3.15.31.63.b.127,99,109.99.103.107,109.127,b,b,128,192,248,248, 
-4.-4,-2.70,86,70.94,b.b.-2.b.b 

9100 DATA 17,31.64,213.223,43.1.31,0,26.237,184,33.119,38.2.123,234,71,40,6 
.60.50 2.125,24.229.17.31,88,213.223.43.1.31.0,26.237,184,33,119,201 
9200 DATA 17-0,64.213.223.33.26,1.31.0 237,176,43,119.38.44,123,234,71.40,6 
.60,50 44.123.24.229.17.0.88.213.223,33,26.1.31.0.237,176.43,119,201 
9308 DATA 42.132.92.34.43.123.124,198.7,30.18,125.1.31,8,9,34,1,123.124,198 
.7.30.60.123.58.137,92,71.62,24,144,38,0.111.6,3,41.16.-3.17.31.88,23,34.28 
,123.17,223.-1.23.34.70.123,201 
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Matematik 





■ Her kommer et nyt mate- 
matikprogram til Spectrum 16 
K. 

Du har tolgende muligheder 
med programmet: 
Nulpunktsogning med mulig- 
hed tor at Id en tunktion teg- 
net. 

Integralbetjening med Sim¬ 
psons tormel samt mullghed 
tor at Id tunktionen og integra- 
letberegnet. 

Tegning at vektortunktionen. 
Altsd hvor x og y er t-athcen- 
gig. Du kan ogsd tegne mere 
end en tunktion i samme ko- 
ordinatsystem. 

Programmet er ellers selvtor- 
klarende.D 

Marlin Andersen 



REN •*••••*••**•#••*••••••• • 3-Martin-Onatrttn 

1984 • ••••••••••••«•••••••••• 

1 REM •*••*•**•*•••••*••••••• 

REM 

REM Karaktarar. dar ar nil 

• O'-aoda 

REM 

REM **••*•*♦••••••••••*•••• 

REM 

REM Naar an traf ar biavat tabnat. kan aan '«« • 

(■an v*<j «« trykka ' e* 

i REM 

REM *••••••••*••••••••••••• 

BO SUB 119 

CLS i CLEAR l LET op-Oi LET .f*Oi LET x3-lll PRINT • • 

1 ■ >>>)>)))> MENU <<<<<<<<<< ■ 

PRINT •'•-!) NULPUNKT80GNIN0* 

PRINT "-2) 2NTEORAL-8EREONINO- 
PRINT *'"3> VEKTORPUNKTI ONER* 

IF INKEV*--:- THEN 00 TO 20 
IF INKEVR--2- THEN 00 TO 43 
IF INKEV4--3" THEN OO TO 40 
BO TO 16 

CLS i BEEP .03.301 PRINT ' ' "F ■ 


-I LINE a*i IF 


THEN 00 T 0 70 


LET y(<)*VAL 


-SOONIN C _% 

• 21 INPUT '<(.)■* 


22 PRINT AT 7. Ol"*<k>»”I*• 

23 INPUT “Intarvai ? -lal"<k<"*bi IF a> *b ’HEN GO "0 2Z 

24 PRINT AT 9.0CN7 <100* a*.3) / *001 * t«<’lIM (:00*b*.3>/100 

25 FOR c-0 TO 300 

26 LET *-a> wET fkl-VAL fbi lET k-bi -ET ♦«2-VA_ fb 

27 -ET fa-SON «.li LE" fb-S3N f«2 

28 LET k-<b*a>/2> -ET fa*VAL fbi I e IN’ (fa-1000*.3>/1000*0 'hEK 00 TO 33 

29 IF SON faOfb THEN LET a-ki NEXT c 

30 LET b-»i NEXT c 

31 PRINT AT 11.01" Intat nviaonkt fjnaat. Or.bkab aZbt .bar. ’ (*/»»> *i INPJT 

LINE abi IF THEN GO SUB 42« 00 TC 23 

32 OO TO 12 

33 -ET «-INT (1000*k*.3)/1000« PRINT AT x3.0t"f(k)*0 <•> **"«■» INPUT -Or.bkab 

a£«t .van <-/n> ? "I LINE obi IF TnEN OO SlB «.2i JLt x3*x3*2i GO TO 23 

36 INPUT "Onakab funkt.onan taanat *» <j/n)"l -INC obi IF kb-*," THEN 00 TO 36 

35 PAUSE Ol BO TO 12 

36 INPUT -I hv.ikat .ntarvai ** "lal"<k<•ibi INPUT -ooi.-om.-MM LET rb*fbt 
TOR c* 1 TO LEN ybi IF »•<«>•"■“ ’HEN LET yb<c>*"t" 

37 NEXT c 

38 LET -b-'t-l GO-SUB 71 

39 00 SUB 81 

40 PRINT bOlAT 1.0lfbl”*0 <•) k-"lki PAUSE Ol IF INKEYfc" THEN COPY i LPRIN 
T l LPRINT fbl'-O <-> —’Ik 

41 PAUSE Ol 00 TO 12 

42 PRINT AT 9.01" "« RETURN 

43 BEEP .03.301 CLS l PRINT •••§ INTEGRAL 

-BEREGNINC **•• ~ 

46 LET c-4i INPUT -f(k)*-| LINE fbi PRINT AT 7. Ol"f(k)■’Ifbi INPUT -Intarvai 7 
"I ikI“<k <" I i y I PRINT AT 9.0I1NT (100* > k*. 3)/1001“<k <"11NT <100*.y*.3»/100 

45 INPUT "NEi.konbt.-'Idki LET h-<.y-.k>/dkI LET k-.ki LET bua*VAL fb 

46 FOR k-,k*h TO ty-h/2 STEP h 

47 LET aua-aua*c«VAL fti LET c-C*2i IF c-6 THEN LET c*2 

48 NEXT k 

49 LET k-iyi LET bua*bua*VAL fbi LET bua-bua*h/3> LET bua-INT (1000*bua*.5)/10 
OO 

50 LET a*»‘F“i LET bb*‘Q(-*fb*->dk**I LET cb**H" 

51 INPUT "Onvkas funht.onan ob .ntaaraiat tabnat 7 <#/«) "I LINE ab: IF ob»\“ 
THEN GO TO 33 

32 PRINT AT 12.0lablAT 13.OlbblbualAT lA.Olcb: PAUSE Ol GO TO 12 

33 INPUT 'I hvilkat .ntarvai 7 -lal“<k<-lbi IF a>.k OR b<.v THEN G 

O TO 33 

54 INPUT -OPI.konbt.--im LET kb-*t-« LET yb-fbi FOR C-l TO LEN yb: IF yb(c>-" 
k- THEN LET yb<c)-’t" 

35 NEXT .c 

56 GO SUB 711 LET If-H GO SUB 81 

57 PRINT AT 21.4tabi PRINT bOlAT 0.4ibbl.u.lAT l.Atcb 

58 PAUSE 01 IF INKEYb-’c" THEN COPY I LPRINT AT O.Albblbuai LPRINT AT 0.4!cb 
39 PAUSE Oi OO TO 12 

60 CLS i BEEP .05.301 PRINT " “» ■ ••• VEKTOR-F 

UNKTIONER ••• B ■■■ mi' 

61 PRINT AT 7. Ol-INDTPST FUNKTIONEN *<k.y> HVOR-"-k OG y ER GIVET VED k<t> OG 
y(t)" 

62 INPUT -k<t>--l LINE kbl* I-y<t>•"I LINE ybi PRINT AT 7. 0l"k<t)*" tkbl* 


• IAT 9.Ol a y<t)P a lybl- • 

63 PRINT AT 11. Ol “ INDTAST INTERVALLET-1 INPUT al"<t<’lbi PRINT AT ll.OUNT <10 
0*a*.3>/100l* <t <"IINT <100*6*.3)/1001" 

64 INPUT "ooI.konat.—"Inl 00 SUB 71 
63 IF MOT op THEN 00 SUB 81 

66 IF oo THEN 00 SUB 110 

67 INPUT -Fiara arafar . koo.trb. <*/«> 'I LINE abi IF ab-‘J" THEN 

68 PAUSE Ol IF INKEYb*"c* THEN COPY l LPRINT I LPRINT i PAUSE 0 

69 00 TO 12 

70 INPUT -k<t)-"l LINE kbl INPUT -y<t>-'l LINE rbl INPUT "Intarvai 7 
Ibi LET op-H GO '0 64 

71 REM l« 1 I | BESTEMME X<T> ft Y<T) I 

I ER I 1 

72 DIM k<n*2) i DIM r<n*2)i LET ka.n*9a9i LET ..a>-9a9i LET ya.n-ka. 

K-kMai 

73 LET c-VAL ‘l’l LET tl-VAL "l" 

7A FOR t-a TO b* <b-a)/n STEP <b-a>/nl LET k<c)-VAL kbl LET y(c)-VAL 
73 IF k<c )> xaax THEN LET kaak-x(c) 

76 IF ■<()<>■•* THEN LET 5«.n-k<c) 

77 IF y( c» ruk THEN LET yaak-y(c) 

78 IF r<c)<yp.n THEN LET ya.n*y(c) 

79 LET c-c-tli NEXT t 

80 RETURN 


INDELINO I — 1 — 

82 IF ABS k.ak)-ABS xa.n THEN LET kakb-ABS —a.i 00 TO 84 

83 LET kahb-ABS k>.n 

BA IF ABS r-aa> -ABS rn,r> THEN LET yakb-ABS ynaO GO TO 86 

85 LET yakb-ABS ya.n 

86 IF kakb)-10-rakb THEN LET yakb-kaka/2i 00 TO 89 

87 l* >a«b>-10-kakb THEN LET kakb-yakb/2i GO TO 89 
68 LET ya-b-(yakb AND yakb)-kakb>♦<kakb AND >a>b)ya>b> 

89 LET x-1761 I e -a.n<0 THEN LET x-B8i GO TO 9. 

90 LE’ C1-<(ABS yaak AND ABS yaak>-ABS ya.n)-(ABS ya.n AND ABS ya.n)ABS y*ak>» 
•87/yakbi I s cl<-46 ’HE\ LET yakb-yakb/2 

91 LET al-x/ka>bl LET tb-'A” 

92 al<7 THEN LET al-al-lOi LET tb-'B- 

93 IF al)-87 ’H£x LET al-al/IOi -ET tb-‘C- 

94 LE’ -2-87/rakbi LET ub-‘0-i IF «2<7 THEN -ET »2-*2*:Ol _ZT jb-“B" 

95 ! r -2>-37 THEN lE" a2«a2/I0I LET vb-'C" 

96 REM P— I | TEGNE 03801 VAT- t I SYS’E 

y. l - .— ■ 

97 C-S 

9S I’ x-l7b TnEN GO TO 105 

53 »-3” .6.S8I D^Afci 224.01 DRAW -6.6> PLOT 240.88« DRAW -6.-6: 

1CK P-C” .23.01 DRAW 0. 1751 DRAW 6. -6i PLOT 128*175: DRAW -6.-6 

10! FOR f-128 TO 225 STEP INT <al«.S>l PLOT f.87: DRAW 0.3l N=XT fi FOR f-126 T 
O ID S’E* -INT <Ml*.S)l °wOT f.871 DRAW 0.3l NEX’ f 
.02 f CR »-8£ TC 168 STEP INT (*2*.5>i PLOT 127.fi DRAW 3.0i NEXT ♦: FOR f-88 T 0 
< STEP -IN* (m 2*.5)i PLOT 127.fi DRAW 3. Oi NEXT f 

103 : : ibO’t- "HEN 9 R1NT AT 9. 28s * k < t) • I AT 0. 171 "y(t) - I GO TO 109 

:C6 PRINT A* 9. 29l*k-|AT 0. l7l"y-i GO TO 109 

1D5 P.O* 8.88: DRAW 232.0: DRAW -6.61 PLOT 240.88: DRAW -6.-6i PLOT 16.01 DRAW 
0.1731 DRAW -6.-6: PLOT 16.175: DRAW 6.-6 

106 FCR ♦-16 TO 225 STEP INT <m 1«.S)I PLOT f.87: DRAW 0.31 NEXT fi FOR f-88 TO 
.75 STTP IN’ (m 2*.3>> PLOT 15.f« DRAW 3.0: NEXT fi FOR f-88 TO 0 STEP -INT <*2*. 
5): P^OT 15. f: DRAW 3.0: next f 

107 IF kb--t- Tr-.EN PRIN’ AT 0.3l-y’lAT 9. 29l"k-: GO TO 109 
IDC PRIM* RT 0. 3l"y<t>"lAT 9. 28l“k<t>" 

IDS PRINT AT 11.<16 AND x-88>*<2 AND X-176)*1NT (al/8*.3)ItblAT 10-INT (a2/8*.5 
).<13 AND x-88'*<l AXD x-176)lub 

rem i ■ ■ » I tegne Graf l — 

111 LET x1*128.3> LET x2-88: IF x*176 THEN LET xl-16.Si LET x2*176 

112 LET k1■INT (xl«x2«k(l>/kakb)i LET yl*INT (88.5«87*y<1)/yakb)I PLOT kl.yli L 
E* zl-xl-.Si .-ET ki-kl-xi: LET yl-yl-88 

114 FOR C*2 TO n*l 

115 LET k2-<.3*x-k<c)/kakb)l LET y2*(. 3*87*y(c)/yakb) 

116 I c .f THEN IF k(c) <■. y AND k(c))-.k THEN PLOT INT <k2*xl>.88i DRAW 0. INT 
v2s SO TO 118 

117 DRAW INT k2—INT kl.INT y2-INT yl 

118 LET il*i2l LET yl-y2« ICXT d RETURN 

119 FOR c-USR -a- TO USR -h-*7« READ al POKE c.ai NEXT c 

120 *OKE 23658.0: RETURN 

121 DATA 0.0. 16.48. 16. 16. 16.36. 0.0.79.201.73.73.73.239.0.0.4. 12.4.4.68.78.0.0. 1 
08. 18. 126. 144. 126.0.0.0.60. 76.84. 100. 120. 0. 0.0.0. 0. 0.112. 136. 128. 128.64.64. 32. 32 
. 16. 16. 8.8. 136. 112.0.0.0.0.0 

122 CLEAR : SAVE -MATEMATIK" LINE li VERIFY "" 
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I M : X-LN onsi IB 


36 S-PEEK < M*6)W236+ PEEK < M+7 ^ T-PF 
)»4096+ PEEK < n+9)*236+ PFEK < M+lOl 

37 D"PFEK< 04 l > : RETURN 

5© R-INTCT/4096> T—4096WR■ 

C"T-4096»R-236*B POKE M.RPOKF M♦1 


Kodetegger 


Dette program er lortrinsvis til 
maskinkode programmorer, 
da det kan lcegge koder ned 
i datalinier og derefter slette 
sig selv, sd der kun er maskin- 
kodeprogrammet (i datalini¬ 
er) tilbage. 

Programmet stiller alle nod- 
vendige sporgsmdl og er selv- 
torklarende. 

Den eneste ulempe ved at 
bruge programmet er. at man 
ikke kan fb noget tra to for- 
skellige steder ned i datalinier 
pb 6n gang. 

For at sikre mod indtastnings- 
fejl, er der naturligvis check- 
sumtest - en ekstra finesse.□ 
Henrik Lund 


\ 1 POKE 33280 , © POKE 3328 1 . fi M—©2© 

2 INPUT" (CLP • HVI D -NRVN ” : N* N-THTf -IP 
\ N<N*>72) ; IF N*— " '• THEN 2 
\ 3 INPUT"<CLR>STRRTRDPFSSE "SR X-SH 6QS 

X UB *.0 

-4 I NPUT " < C PSP ME I* > SLUTADRESSF " ■ FR X-P 

R OOSUB 30 IF SR>ER THEN M—M-2 ROTO 3 


0 IE LN<63 THEN M-M-2 : GOTO 35 

© INPUT "< CRSR MED>TRIM M ;S:X-S OOSUP 50 
:IE S<1 TMEM M-M—2:GOTO 5 
2 I NPUT " < CRSP MED > RMTFtL BRTR •• . D POKE 0 
41.D:IF D<1 OR D>1© TMEM 2 

9 PRINT"<CLR>"LM; : X —M : PR I MT " " PMR» < 3«4 • " 

<CLR. HVID) "CHR*<34> "TRB' " ■ OOSUB “5-4 

10 PRIMT" > "CHR* < 34 > M$CHR*(34 V POKF3S2R 
0-0 POKE33281 - 0" : LN-LM + S 

11 RRIMT LN"FORX-";-X-SR OOSUB 34 PPIMT 
••TO”; X — ER = OOSUB 34 PRINT" RLRPR 

- POKEX , R •■ ; 

12 PR I MT " T-T + R : NEXT " : OOSUB 38 : X-LM + ?H«S 
M —©32 : OOSUB 50 : X-LM + S M-83S* OOSUB 3© 

:GOTO 52 

20 M-02R : OOSUB 55 : PRINT" <Cl R • CRSP MF T« • ” 
LM"DRTfi";:I-1 

21 X—REEK<SR>•OOSUB 34 T-T+X•SR-SR+1 

22 IE SR-<ER RMD I <D TMEM I — I 1 RRIMT". 

”;:OOTO 21 

23 IE SR-ER+1 TMEM RRIMT:OOTO 2© 

25 X —SR • OOSUB 50 • X —ER OOSUB 50 • X—L N-*-S O 
OSUB 50•X—S OOSUB 50■OOSUB 5© GOTO 52 

2© RRIMT PEEK < ©39)*236+PEEK < 840) " IET<‘ " 
; X—T OOSUB 54 RRINT”TMEN2"; 

22 RRIMT CMP*< 34 >”<RVS OM>EEJL I <PVS ORE 
> "' MR* < 34 > : RR I MT " OOTO60 " POKF ©3 1,1© 

: EOR X— 1 TO -4 POKE ©31 -*-X . 1 3 
2© NEXT POKE 13© ,5■END 

50 R-IMT(X7256>=B-X-236HR POKE 1.fl=ROKE 

M-*- 1 . B M — M-*2 RETURN 

52 POKE 198.9-ROKE 631.19ROKE 632-13 R 

OKE ©33, 13: POKE ©3-4 ,12 POKE 635.82 

POKE ©3©,213 

53 POKE ©32,50 POKE ©3© .4©:POKE 639.13 

END 

5-4 X*-STR*<X) PRINT R I OMT * < X* • LEM < X* *> —- 1 
>; RETURN 

55 SR-PEEK < M ) *256+PEI K < M+ 1 •> Ffl-PFFK' M*.? 
)*256+ PEEK<ri + 3> 

: LM —PEEK < M+4 > *256+PEEK < M-*5 > 


53 POKE M+2,C-M-M+3:RETURM 
©0 POKE ©2©.0 

©1 X»PEEK<©28> : IP X<©3 TMEM PRTMT"U I P • 

" POP V—X TO X45PRIMT V NEXT 
: PPIMT"OOTO©1" 

©2 POKE ©31 » 19 ; POR r — t TO R : POKF ©31 ♦ L. 

1 3 NEXT ■ POKE ©-40 . 1 -42 POKE 1 98 • 1 © X —X * “5 
:POKE ©2©•X 
©3 END 


Tegn abonnement 

SOFT Special er Danmarks eneste softwareblad. Hver 
anden mined tinder du side op og side ned med interes- 
sante programlistninger til markedets populaere com- 
putere. 

★ 

Vi DU vaere sikker pi at fi SOFT Special, hver gang bla- 
det udkommer, er det en god ide at tegne abonnement. 

6 numre af SOFT Special koster kun 153 kroner, - og du 
fir bladene portofrit tilsendt. 

★ 

Niede du ikke at kebe SOFT Special udgaverne, num- 
mer 1,2 og 3 hos din bladhandler, kan de stadig bestil- 
les direkte pi forlaget. Prisen er kr. 27,85 pr. styk plus 
eventuelt porto. 

* 

Ring og bestil abonnement eller aeldre numre pi telefon 
01-11 28 33. Eller indbetal straks 153 kroner pi postgiro 
konto 940 60 77. 
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Mr. Robot 


■ Dette spil minder meget om 
Mr. ROBOT, og spillet kan du 
sagtens Id timer til at gd med. 
Gratikken er udmcerket i be- 
tragtning at, at der ikke bru- 
ges mere end tre sprites (re- 
sten er Commodore gralik). 
Selve spillet gdr ud pd at gd 
rundt pd de torskellige platfor- 
me og pd den mdde tarve 
dem gronne. orange etc. 

Ndr en skcerm er tarvet helt 
fdr man en bonus skcerm. Der 
er 144 skcerme til spillet 
Du opdager hurtigt, hvordan 
du hopper rigtigt. og undgdr 
de smd dyr . Spillet krcever 
joystick (Port 2). 

Mr. Robot tastes ind ad to om- 
gange. Forst det lille program, 
loaderen. Ndr denne ersavet, 
tastes det andet ind. Efter save 
har du sd hele spillet. Ndr 
man nu vil spille, indlceses 
loaderen (det korte program), 
der sd selv loader hovedpro- 
grammet ind fra bdndet.D 
Rune + StigKahr 


A PRINT " <1*1 R> ” 

t D-1228R C-33248 POKE 36-48 POKE 32 - 
POKE 33280-0 POKE 33. 31 -O 

2 FOR R-O TO 276 POKE A + D-O NEXT POKE 3 
3272 - 2© 

-i PRINT - <CL R . CPSP NED3 - L . ROD - SPACE 1 6 > SL 
RCKER" 

-» PR X NT " < CPSP NrD4,OUL.SPRCE10>PV RIJME 
» ST IO K RHP 

•3 PR I NT *• < CRSR NE D2 . L . Bl.RR - SPACE? > RND MI 
TM R LITTLE BIT HELP” 

6 PR I NT " < CRSR NED2 - ORfiNOE - SPRCE1 1 >FPOM 
I PR « TOP3TEN" 

7* PRINT "<rRSP NFD3 - OPON - SPfif E I O 'LORD I NO 

> r MS 9 min. M 

IO POKE 36334 O POKE 1,31 OR A-O TO 20 
OR POKE A♦ IT - PEEK<R*C) NEXT 
.-•o POKE 1 - *3“3 POKE 36334.1 
. POKE *3327-2.2 1 

**n P OR R-O TO 13 REAP B POKE 123'2+R.B 
MEXT 

•in POP R-O TO 1 3 READ B POKE 12636*R P 
» IEXT 

50 POR A-* 1 37«4 TO 137-©© READ B POKE A ■ B 

mi : : r 

60 POP R-13032 TO 13894 READ B POKE R•B 
(4PXT 

7-0 POP R— 1 3R96 TO 1 3938 READ B POKE R • B 
I IPXT 

on PR I IIT ** < CRSR NE D . MV ID. SPACE© * PRESS SM 
IPT AMD Rl IN-STOP" 

©805 DATA t 3*3 - 1 3*3,233 . 1 3*3 . 1 93 . 1 95,255 . 1 

9 * r . 

3813 BATR 24.126-90- 126 -68- 36.36, 193 
0030 DATA 1 19.*:O6.39.220. 1 13,206- . 

0040 DATA 233.2*3*3 . 231*3 - 255.233 - 255 . . 

9003 BAT Ft . S6 - , 1 • 2-4© 1 *3 - 233 . . 1 .2-4© . . 1 . 

1 3© - - 1.2312 .1.1 3© -.1.1 ?© . , , 1 20 • , . ©-4 . , . 

©-4 

•no 1 O BATA . 1.740 . , 7- - 234 - . 7- . 2*5-4 . , 7.2*3-4 . . 7 
. 25-4 . . 7 .213-4 , . 3.252 • .2 -4. .2.-4. .3.© 

3020 BATA . . 9© . . 1/774K . . 13.255 . . 1.2-4©. . 1 . 
2*4 - - 3.2-4© . . 1 . 2-4 . A . 2-4 . , 1.22-4 . . . 32 . . • 32 . . 

1 

©025 BATA 248 . . 7 N25-4 , ,7,25-4 . . 7 .25-4 . . 7 • 2 
5-4 - - 7- . 25-* • . Si 252 - .2.-4. ,2,-4. •©. 12 

30 T0 BATA - . 3© . - 1,2-4© , , 15,255 • • 1.2-4© . . 7 . 

-34 - . 7 .25-4 - . t . 2-4© - . 1.2-4© . , © , 1 02 . . -4,3© . , 

5 

3035 BATA 250 ■ ■ 7. 25-4 , , 7 .25-4 . . 7 .25-4 .,2,2 
5-4 . , 7 ,25-4 . , 7.25-4 , . 3, 252 . , 1.8, . 1,8. ,2,4 

Program 2. 

0 POKE 5633-4,0 

1 R-34272:POKE 34296,13 J-36320 

-4 POKE 53200.0 POKE b328 1 . O : B«34272 

5 C —532-48 

25 POKE 53265.IO 

50 POKE 33272,20 

90 POKE C+20,255 

100 POKE 20-40 .11 POKE 20-4 1,13 POKE 20-42 
, 14 POKE 20-43, 15 • POKE C*38 , 7 
■ POKE C+37,2 

102 POKE C*39. 2 POKE C-*40,2 POKE C*4 1,2 
120 FOR A — 70-4 TO 766 POKE A . PEEK < A-*- 1 300 
0 > • MEXT 

130 FOR A —©32 TO ©9-4 POKE A. PEEK < A-*- 1 300 
0 > - MEXT 

1-40 FOR H-996 TO 958 POKE A, PEEK < A-*- 1 300 
0 > • MEXT 

150 FOR A —960 TO 1 022 : POKE A . PEEK < A-*-1 30 
00 > = MEXT 




205 PRINT"< OUL , LLP. LKbK ML D, CRSR VEMSTR 

E9> .---. < CRSR MED, 

CRSR VEMSTRE 7 > I < ORAA3 >SCORE < GUL > I <CR 
SR MED, CRSR VEMSTRE 7> I I <CRSR MED. 

CRSR VENSTRE7 > 100000 I 

207 PRINT" ^ CRSR VEMSTRE7> I-1 <CRSR M 

ED. CRSR VEMSTRE?> I < ORRMOE’MEM < OUL> l< 

CRSR MED,CRSR VEMSTRE?)I I<CRSR 

MED.CRSR VEMSTRE?)I 3 I 

210 PRINT" (CRSR VEMSTRE?) I-1 <CRSR M 

ED, CRSR VEMSTRE?) I <L. BLAA>LEVEL<OUL) I < 

CRSR MED,CRSR VEMSTRE?)! I<CRSR 

MED.CRSR VEMSTRE?)I 001 I 

215 PRINT"<CRSR VEMSTRE?) I-I <CRSR M 

ED. CRSR VEMSTRE?) I <L. ROD>BONUS<OUL> I < C 

RSR MED,CRSR VEMSTRE7)I KCRSR M 

ED, CRSR VEMSTRE 7* > I 00000 I 

220 PRINT"(CRSR VEMSTRE? > I-1 < CRSR M 

ED, CRSR VEMSTRE? > l<L.OR0M)HIOH <OUL> I < 

CRSR MED, CRSR VEMSTRE7) I <L.OR0M)SCOR 
E < OUL > KCRSR MED.CRSR VEMSTRE?) I • 

22b PRINT"C CRSR VEMSTRE?) I <HVID>00000<O 
UL > I < CRSR MED. 

CRSR VEMSTRE?) I I <CRSR MED. CRSR 

VENSTRE?) ISLACK I <CRSR MED. 

CRSR VENS TRE 9 > *-*-* " ; 

230 FOR A-1095 TO 1935 STEP*40 POKE A,9 
3 MEXT POKE 2023.120 POKE 56295.5 

235 PRINT"*. HUME . C VHM . CRSR NED2.CRSR VEM 
STRE0)P(CRSR MED. 

CRSR VEMSTRE>0<CRSR MED.CRSR VEMSTRE 

)U<CRSR MED,CRSR VEMSTRE>E<CRSR MED. 

CRSR VEMSTRE>R<CRSR MED.CRSR VEMSTRE 

,SORT.SPACE.MVID)" 

2-45 A—128 FOR A— 1 336 TO 1936 STEP -40 PO 
KE A.M POKE R*R.H*.0498*1 1 A —H-«-1 NEXT 

2- 4 7 PR I NT "< CRSR NED16.0R0N)- 

-< MVID)"i 

280 OOSUB 51UO 
290 OOTO 360 

300 POKE C-*-L , V POKE C + 21.0 POKE V, 32 PO 

KE MA,32 POKE 0.32 POKE P,32 

301 POKE B+5.128 POKE B+6,128■2-3■TT-12 
66-4 EE-O 

302 FOR A —0 TO 3 POKE T T-*-A, 255 NEXT 

303 POKE B♦ -4,33 IF Z<3 AMD EE-1 TMEM 30 

7 

30-4 FOR A—75 TO O STEP —2 POKE B. A POKE 

If* 1 . A♦9 POKE TT 12,0 HEX T 

305 POKE B*4,32 IF Z> 1 5 OR EE—1 THEN Z — 

2-1 EE-1 OOTO 302 

306 2— Z* . 5 OOTO 302 

307 POKE B + 4,32 POKE B-+-5.0 SS—10 

308 FOR K —K TO 1 3-4 3© S-8*l POKE B*4.33 

POKE B.9 POKE B*1.SS■POKE K,129 

POKE B-+--4.32 

309 PR I MT " (HOME > ** T HB < 1 60 —LEM < STR4 < S > > > R 
I OMTf< SIR»«S) , LEN^STR*<S> )-l) i>S-SS* 1 

310 MEXT SS—0 

312 4OKE 53265.10 OOSUB 51OU 

317 DD — DD* 1 UO-OO*1 MN-NN*1 FF —4 

318 POKE 53265.IO 

319 0—00—0 D—0 1—0 BB—O OOSUB 990 

320 OM DD OOTO 1000.650.1100.650,1200.6 
50,1900.650 DD-1 S-S*BU BO-0 

322 OOSUB 880 

325 IF MM—17 TMEM O—Q+.Q5 MM—1 IF Q>.5 

T 8§y PRINT" fHOME,CRSR MED16. CRSR VEMSTRE 
6>00000” OOTO 320 

3- 45 OOSUB 5100 OOSUB 500O 

350 IF S>M I TMEM M 1 —S OOTO -4300 

360 OOSUB 990 FF --4 DD— 1 Q— - 1 LI —3 OO— 1 
MM—1 O—0 F—0 S—0 

380 PRINT"< HOME. SORT.CRSR MED2. SPACES> D 
K. — SOFTWARE** 

390 PRINT** PRESENTS ** 

391 PR I MT ” < R VS ON)? 5.. RVS OFF . SPACE . RVS 

OM)P(RVS OFF . SPACE-4 , RVS ON-?>RVS OFF, 

SPACE2.RVS OM-? ^RVS OFF , SPACE , RVS 
ON)P<RVS OFF,SPMCE2.RVS OH^7<RVS OFF. 

SPACE. RVS OH)? ^RVS OF F , SPACE , RVS O 
N>? ^(CRSR M0JRE10)", 

392 PR I MT ** < RVS OM . SPACE . RVS OF F . SPACE3 . 
RVS OM. SPACE. RVS OFF' . SPACE 3. 

RVS ON>?<RVS OFF)?4.RVS ON)^>PVS OFF 

.SPACE.RVS OM.SPACE,RVS UFF,SPACE3, 

RVS OM.SPACE,RVS OFF,SPACE.RVS ON)?< 
RVS OFF^r < RVS OM, SPACE. RVS OFF. SPACE3, 

RVS OM,SPACE.RVS OFF,SPACE2.RVS OM,S 
PACE.RVS OFF)" 

393 PRINT"<RVS OM, SPACE. RVS OFF, SPACE 3, 
RVS OM.SPACE.RVS OFF.SPACE3,RVS ON, 

SPACE.RVS OFF,SPACE2.RVS OM,SPACE,RV 
S OFF.SPACE,RVS OM.SPACE.RVS OFF, 

SPACES. RVS UN,SPACE>F<RVS OFF >? 

S OM, SPACE. RVS OFF , SPACE 3. RVS ON, SPACE, 

RVS OFF.SPACE2.RVS OM.SPACE.RVS OFF, 
CRSR M0JRE 10) ** . 

39-4 PRIMT"^<RVS OM . SPACE > *5< RVS OFF . SPAC 
E.RVS OM,SPACE,RVS OFF,SPACES.RVS OM, 

SPACE-4 , RVS OFF , SPACE . RVS ON, SPACE, RV 
S OFF,SPACE3,RVS OM.SPACE2,RVS OFF, 

SPACE3.RVS OM,SPACE2.RVS OFF,SPACE2. 
RVS OM, SPACE 3. RVS OFF>F" 

395 PRINT" < RVS OM, SPACE, RVS OFF, SPACE 

,RVS OM,SPACE.RVS OFF,SPACE3.RVS OM, 

SPACE,RVS OFF,SPACE2.RVS OM,SPACE,RV 
S OFF,SPACE.RVS OM,SPACE,RVS OFF, 

SPACE3.RVS OM, SPACE. RVS OFF 7 '*•■ RVS OM 
>*4<RVS OFF . SPACE2 . RVS OM , SPACE , RVS OFF, 

SPACE3, RVS OM, SPACE, RVS OFF > ^7 RVS OM 
)^<RVS OFF, CRSR M0JRE1P", 

396 PRINT” c. RVS OM . SPACE , RVS OFF , SPACE 

.RVS OM.SPACE.RVS OFF.SPACE3.RVS OM, 

SPACE.RVS OFF,SPACE2.RVS OM,SPACE,RV 
S OFF,SPACE.RVS OM,SPACE.RVS OFF, 

SPACE3.RVS OM, SPACE, RVS Oh F , SPACE > 5*. 
RVS ON>*5<RVS OFF , SPACE , RVS OM, SPACE, 

RVS OFF,SPACES.RVS OM,SPACE,RVS OFF. 
SPACE ) *5*. RVS OM)*4(RVS OFF ) " 

397 PRIMT"^<RVS OM , SPACE . RVS OFF)? *^«. R V 
S OM. SPACE, RVS OFF,*? 5 F *4<RVS OM, 

SPACE. RVS OFF > ? 5 5 RVS OM, SPACE . 

RVS OFF)? ^ 

-400 PRINT" MADE BV ROME AMD ST IQ K AMR" 

-4 10 PRINT** 1985 - 001 ** 

-420 PRINT" MOVE UP TO CHRNOE LEVEL 00 

-430 PRINT** PUSH FIRE TO START < MV ID 

> •* 

435 GOTO -4 100 

-4 38 POKE C, 18 POKE C-»-1,77 POKE C+2/230 

POKE C + 3.77 POKE C-^-4 , O POKE C-*-5.0 

-439 POKE C+21.235 PRINT ” < CRSR OP3.CRSR 

VEMSTRE13>O01" 

-4-40 IF PEEK <56321 >-239 TMEM 900 

441 IF PEEK<56320)-126 TMEM 00-00+1 DD— 

I'D*2 NN-MM+ 1 

-4-42 IF DD> 7 TMEM DD—1 

-4-43 IF MM—17 TMEM MM—1 O-Q+.03 

-4-4-4 IF UO>144 THEM 00—1 DD-1 MM—1 PRINT 

"< CRSR OP, CRSR VENSTRE13)001 ” O—- 1 
-4-45 PRINT "< NOME , CRSR MED 1-4 > ** T MB < 1 9 1 —LEM 
<STR*<00> > )RI0MT4<STR*(00) , 

LEN<STR4< OO > > — 1 > 

-4-4 7 IF PEEK < 56320 >—111 TMEM POKE 53265, 

IO OOSUB 5100 GOTO 760 

-450 GOTO -4-40 

COO X—11 V—221 E—1984 

502 PRINT" (NOME , CRSR MED 1 1 >"TAB < 79—LEM < 
STR*<00) > )RI0MU(STR*<00) . 

LEM< STR4< OO > >—1 > 

503 POKE C-+- 1,0 POKE C♦ 3, 0 

505 POKE B-+-5,68 POKE B . 20 POKE B-*-1,20 F 

OKE B-*-6,6-4 L—1 POKE C + 21,1 

510 T-T♦1 OM T OOTO 511.910.511,920,511 

, 930. 511.9-40 T —O __ 

511 POKE C, X POKE C-^l.V POKE C-+-2, X POKE 

C-+-3 , V 

5 1-4 IF PEEK <3 XI20 AMD PEEK<J)>116 THEM 
516 

515 OOTO 519 

516 IF XC250 1 MEM POKE C + 21- 1 POKE B-+--4 , 

129 FOR X-X TO X-*7 P OKE C , X MEXT E-E-+-1 

L-1 M—0 
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VV-VV* 1 POKE B*-4 - 125 POKE B.UU«H*8, 
It- POKE B*1 ,UU*H*8/16 NEXT 
POKE B+4,128 
UU-0 K—13313 RETURN 

1000 PRINT"<HOME,CRSR HEIM >. 

< CRSR MED, 

SPRCE > . . - .< CRSR MED , SPACE > 

. <CRSR OF* > f < CRSR MED, 

CRSR VENSTRE> ! . «.CRSR MED, CRSR VEMSTR 
E2)KCRSP MED, CRSR VENSTRE > f <CRSR MED, 
CRSR VEMSTRE2>..." 

1010 PRINT" ! .... .< 

CRSR HOJRE13>..•.-..CCRSR MED, 

CRSR VENSTRE5>!<CRSR MED,CRSR VEMSTR 
E > ! < CRSR MED, CRSR VENSTRE) ! ", 

1015 PRIMT”< CRSR MED, CRSR VENSTRE) ! “ 

1 020 PRINT".(CR 

SR MED,SPACE>..CCRSR OP> KCRSR MED, 

CRSR VENSTRE.!..<CRSR MED,CRSR VEMST 
RE 3> f < CRSR MED,CRSR VENSTRE> f <CRSR MED, 

CRSR VENSTRE3 )." 

1030 PRIMT"<CRSR OP,SPACES>. 


51 7 POKE El-*--*, 127 

■5 13 IP PEEK < E > -32 THEM M^O OOH 

520 IP PEEK < J X 1 24 HMD PEEKU). 

522 

321 GOTO 524 

522 IP X^l t THEM POKE C+21,2:pi 
29 : FOR X —X TO X—7 STEP—1 POKE C 

NEXT E-E-l L-3 

523 M—O POKE B*4,127 

52-* IP PEEK < E ) =32 THEM M-0-OOH 

525 IP PEEK<E>*46 THEM POKE B 

♦ I POKE E^-P:, BH POKE E, -4 7 S=S-f 1 


OOSUB 880 

526 IP PEEKC J XI 12 THEM 033 

527* OOSUB 750 

32S IP G — F THEM 300 

3S5 IP PEEK<E>-46 THEM POKE B‘4,128 0—0 

♦ 1 POKE E+R,Bfl POKE E.-4 7 -S—S-fi 
OOSUB 880 

3S5 IP PEEKCE—*40>—34 OR PEEKC E —©O)—34 O 

R PEEKC E— 120)—34 THEM 7O0 

307' IP PEEK<J)>123 THEN ©25 
530 GOTO 310 

COO POKE 532SO,2 POKE 53200,7 M--H POKE 
53200,0 POKE B-f-4,32 POKE B*4, 16 
GOTO 033 

010 FOR 7—V TO V-f 7 POKE C+L,V POKE C*L- 
l.X NEXT E — E-F40 

011 IP PEEK C E—40>-3-4 OR PEEK<E)-34 RND 
FEEK<E)-34 THEM 700 

012 IP N>4 HMD PEEK <E >032 THEM 700 
013 IP PEEKCE>-32 THEM M-N+l OOTO SIO 

014 M—0 OOTO 305 

0 13 POKE K, 123 K—K+l IP PEEK < 1343©)—123 
THEM 700 
020 2Z-ZZ*1 

022 IF ZZ<3 THEM JJ——7 KK—-40 
02-4 IF ZZ>2 THEN JJ-7 KK--40 N-1 
025 IP ZZ>3 THEM N-2 
020 IP 22—5 THEM 22—O GOTO 305 

033 FOR V-V TO V*JJ STEP JJ/7 X-X»M-POK, 
E C+L-1,X POKE C+L,V•NEXT 

030 E-E+KK+M IP PEEKCE>>43 THEM 22-0 GO 
TO 303 

037 IP X< 12 OR X>249 THEN IP MOO THEN 
POKE B-f-4,17 POKE B-f-4,33 OOTO 0OO 

033 IP PEEKCE—40 >-3-4 OR PEEK C E —80 ) -34 O 
R REEK C E— 1 20 > — 3-4 THEN 22 — 0 OOTO 700 

0-40 IP PEEKCE >—32 RND 22 —-4 THEN 22 — 0 OO 

TO 01O 

0-4 1 OOTO 020 

050 POKE C-f 1,0 POKE C + 3,C X —30 V—103 PO 
KE C-F21,1 E- 1 423 00-00- 1 MM —MM — 1 

033 BO-BO*1 

050 PR I NT " C HOME , CRSR ME D l-4> " TRB'80-LENC 
STR$<BO)>)RIOHT*CSTR*CBO), 

LENCSTR*CBO> >-l > 

00O PRINT" 

CHOME. CRSR MED10>" , LEFT $CH*. 31 > PR — O 
001 m-RIGHT*'H4( LENCfif) — 1 )*LEPTfCfll , 1> 
002 IF PEEK C J > < 1 12 HMD 00-0 THEM 00-1 
003 IP 00—1 HMD HH—O THEN V—V-2 

00-4 IP VC33 THEM HH-1 

003 IP HH—1 THEN V-V*3 HH-IIP V>108 TH 

EM 00—0 HH—O 

000 POKE C, X : POKE C-F1.V 

007 IP 00—0 HMD PEEKCE>—32 THEN 032 

008 IP FF>-1 HMD PEEKCJ>-113 THEM PP-FP 


Port 2 


1050 V-1 335 HR-18-4 1 0-1089 P-1202 

1030 F=31 OOTO SOO 

1 1OO PR1NT"CNOME, CRSR NED4, SPRCE > t 

1102 PR I M F " C CRSR HOJRE9 > '. I - . . ! 

1 105 PRINT"C CRSR’HOJRE3, SPRCE -• f 
111®"PR1MT"C CRSR HOJRE3, SPRCE > ! 


1115 PRINT " CRSR HOJRE3, SPACE) I 

1 120* F RINT"v CRSR’MOJRE3. SPACE> I 

1125 PRINT"C CRSR HUJRE9,SPRCE) ! 

* " , 

1130 PRINT"CCRSR HUJRE9,SPACE.« 
1135 PRINT"(CRSR HOJRE3.SPACE>! 


11-40 PR I NT "C CRSR MOJRE3 


11-43 PR I MT " C CRSR HOJRE9, SPRCE5) 


1150 PRINT "C CRSR HOJRE?,SPACE 


1135 PRINT"<CRSR HOJRE9,SPACES)! 
t " ; 

110O PRIMT "C CRSR HOJRE9, SPRCE5) I 
1105 PR 1 NT " «. CRSR HOJRE?, SPACES) ! 
1170 PRINT"CCRSR HOJRE?.SPRCE5)! 
1173 PR INI " < CRSR HO J RE3 • SPRCE-4 > . 
1180 PRINT"tCRSR HOJRE3,SPACE 1 1 > 
1183 PRINT"CCRSR HOJRE?,SPRCEJ.. 

1130 PRINT"<CRSR’HOJRE?,SPACE12. 
1 1 9-3 R4- " •. OUL . XXXXXXXXXXX XX. 


1133 V—1137 HR-1310 O-1720 P-183 
1 133 P-3-4 OOTO 300 

1200 PRINT" . HOME . CRSR MED-4 . SPACE 
1203 PRINT”<CRSR MOJRE3,SPACE4>• 
1205 PRINT"C CRSR"HOJRE?, SPACE 3>. 


003 IP FFC-4 RND PEEK<J>-123 THEN FF^PF* 
1.3 

070 PR I NT "< HOME , CRSR NED-4 , SPACE 1 1 >SPEED 
"FP*10-5O 

071 POKE K, 123 K-K*Q IF PEEK < 13438> — 123 
THEN 032 

003 PR-PR+1 IP P A>FF THEN 033 
030 OOTO 002 

032 FOR V—V TO 220 POKE C+l,V POKE C,X 
NEXT 

033 POKE C + 21,2 FOR X—40 TO O STEP-1 PO 
KE C*2, X POKE C-f3, V NEXT GOTO 312 

700 W-C*L POKE C-F23,233 POKE C*21,L*.5* 
1 POKE B-f-4 .17 POKE B*5.128 

702 FOR V—V TO 1 STEP-6 POKE W,V POKE W 
—1,X POKE B,V POKE B*1,VNEXT 

POKE B*4,10 

703 POKE C*23, O POKE V, 32 POKE RH, 32 F'O 

KE O,32 POKE P,32 

710 LI-L1-1 PRINT"tHOME,CRSR NED8.CRSR 

VENSTRE3 > "LI 

730 IP LI-O THEM 3-43 

733 POKE 33203,lO OOSUB 5100 

7-40 OOTO 31© 

730 POKE K, 123 K-K-FO IP PEEKU J4JQ. • 129 
THEN 700 
732 RETURN 

700 PR I NT HOME , CRSR NED-4 , CRSR VEMST REfc. 
>00000" 

703 PR I MT " < CRSR MED-4 , CRSR VENSTRE-4>3" • 

770 PR 1 MT " < CRSR MED-4 . CRSR VENSTRE5.U0 1 

780 PR I MT " C CRSR MED-4 , CRSR VENSTRE6 >®00® 

O" 

800 OOTO 318 

825 POKE C-F-4, X POKE C+5,V 

830 IP PEEK < J > O 1 20 OR PEEK tE -40. -.33 I 


1 PUKE 


835 IF* PEEK<J>0123 OR PEEK C E . O 33 THEM 

310 

>3 3.0 .EPKfc_C*2 1 , -4 

©37 F OR V-V TO V+r PUKE G-f- 4 , X POKE C.-F 
NEXT t.“E* 40 
03© OOTO SIO 

©3S» IF PFEK<C+£l)-3 THEN 310 

8-40 IP PEEK C J X I 0-4 HMD PEEK C J > > 1 OO HMD 

X C231 HMD PEEK C C*21 > <3 THEM M— 1 » 

OOTO 013 

830 IF PEEK <.3X1 08 AMD PEEK < J > > 1 0-4 HMD 

X> 12 HMD PEEKCC-F21X3 THEM M--1 f 

OOTO 013 

803 M—O OOTO 013 

880 PR 1 Ml " 'HUME) "TAB.. 1 60-LEN<STR4<S) > >R 
1GHT*<STR4'S> , LEMcSTR*CS> .* - 1 > 

885 POKE B*4,127 RETURN 

300 PRINT"<HOME.OUL,CRSR NED22,SPRCE-JO 
VST 1CK WORKS ONLV IN PORT 2<HVlD>" 

OOTO -4 30 

310 POKE V,32 V—V+U POKE V*R,1O POKE V, 

3-4 

312 IP PEEK < V-f4 1 > —32 THEN U —— 1 

3X3 IP PEEK < V + 39> —32 THEN U—1 

313 OOTO 311 

320 IF PEEK<P*41>—32 THEM I——1 

321 IP PEEK<P*33)—32 THEM I—1 

323 IP MM<13 THEM P—O OOTO 311 

323 POKE F, 32 P—R-f I POKE P-fR.IO POKE P, 

3-4 

320 OOTO 311 

330 IP PEEK<.0*4 1)-32 THEN D —— 1 

331 IF PEEK CO-F33)-32 THEM D-1 

332 IP NN<3 THEM 0—0 OOTO 311 

33-4 POKE O, 32 O —O-fD POKE U*R» lO POKE O, 

3-4 

335 GOTO 511 

3-40 IP PEEK < E — 38 > -3-4 OR PEEK C E — 37 > —34 T 
HEM BB—1 . _ 

3-4 1 IF PEEK'E 42) -3-4 OR PEEK<E-43>-34 T 
HEM BB — -f 1 4 

3-42 IP MM <3 THEM AA —O GOTO 311 

3-43 IP PEEK' flfl*3?>-32 THEM BB-1 

3-4-4 IP PEEKC Afl*4 1 >-32 THEM BB— 1 

3-43 POKE AA , 32 AA —AA♦ BB • POKE Afl*R,b ROK 

E AA, 3-4 

3-47 OOTO 3 11 

330 POKE 53203, lO POKE B*5, 128 POKE B*-0 

.128 POKE B*4,128 

332 FOR A— 13-4 40 TO 13312 STEP-1 POKE A, 
233 ; NEXT 

333 POKE C-F21.0 FOR A —O TO 7 ^ POKE Af 123 
44,127•NEXT POKE 53205.27 

33-4 PORE 33281,0 POKE B*4, 123 

333 FOR A—1 TO 40 IP VV>8 THEM POKE UU+ 

1 234-4 , O POKE 1 255 1 — UU , O VV — O UU=UU* 1 


PR I MT 
PR 1 MT 
PR 1 MT 
PRINT 
PR I MT 
PR I MT 
PR I MT 


1330 V—133-4 AA—1883 0—1803 P—1-40-4 BA-2 

1330 P—130 OOTO 300 

•4 100 POKE B-F3.0 POKE B-F0, 128 I X — 10 A — 35 

230 OO-1 

-4103 FOR A-A TO H*JO POKE fi*l,7 IF PEEK 

< A-R >032 THEM POKE A , I X X lO* X I I — I 1*10 
OOTO -4 125 

-4 110 I I — 10 NEXT A — A*3 IF A>30233 THEM -4 

38 

-4 120 OOTO -4 103 

•4 123 POKE B-f-4, 123 POKE B. II POKE B*4, 17 

POKE B-f 1 , II POKE B-f-4 , 1 28 POKE B*4,16 

NEXT 

-4300 PRINT" CHOME. CRSR MED 1 0 > " T AB C 200- LL 
MCSTR*CS> > >RlGHT4'STRi'S> , 

LEN<STR*<S>>—1> 

-4320 GOTO 300 

3000 PRIMT"CHOME>"J AU—33280 FOR A“1 TO 

2-4 POKE B ♦ -4 , 17 

3010 FOR BU=» 1 TO 1 OO STEP A#2 POKE B* 1 , 

BU POKE B.BU 

3013 POKE HU,BU POKE AU,O NEXT DU 

3022 PR I MT " < OUL , SPACE2XC BLAA • I'GPUM . -• 
LXLLAXCCVAMX cR0D>0 A M E OVER *. 

OUL >>< BLAA >>< GROM »<L I LL A > - C C VAII > - C 
CRSR HOJRE3)"> 

3030 POKE B*4,16 NEXT A OOTO 5100 

5100 PRIMT"<HOME>", 

3103 FOR A—1 TO 2-4 PRINT" 

'CRSR M0JRE9)", NEXT 
PR I NT •* C HV ID." , 

5110 RETURN 
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ZX-snow 



Med dette program til ZX- 
Spectrum kan forvandle din 
Spectrum til et Hot blinkende 
lysshow. Alle attributterne vil 
blinke over hele skcermen i 
tarver i takt til musikken. 

Du skal bare tilslutte din bdn- 
doptager udgang til Spec- 
tmm'ets EAR indgang og 
skrue op i passende styrke. 
Pas pd ikke at spille mere end 
2 watt, da Spectrum ikke kan 
klare mere i EAR indgangen. 
Ndr du trykker CAPS shift, kan 
du cendre tarver m.m. Pro¬ 
gramme! md ikke bruges 
med Microdrive pd.D 





9 LET 5=32500+32768*(PEEK 23733>200) 

10 CLEAR s-1 

12 LET 5=32500+32768*(PEEK 23733)200) 

13 LET bak=0: LET bor=0: LET oa=0 
15 LET bo=0 

20 FOR f=s TO s+45 
30 READ a: POKE f,a 
40 NEXT f 

50 DATA 17. 191.3. 33.0.88. 1.0.7.219.0.0. 230, 64. 137. 203. 31,79. 05. 32, -12, 119. 35, 0 
0.27. 175. 130. 40. 2. 24,-26. 219. 0. 203. 71.200. 58. 120. 92. 230. 7, 211.254. 24. -46 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
221 
222 
230 
240 
250 
260 


REM 

LD DE, 959 

REM 

LD HL. 22528 

REM 

LD BC. 0007 

REM 

IN A. 0 

REM 

CPL/noo 

REM 

AND 64 

REM 

ADD A, C 

REM 

RRA 

REM 

LD C. A 

REM 

DEC B 

REM 

JRNZ -12 

REM 

LD (HL).A 

REM 

INC HL 

REM 

NOP 

REM 

NOP 

REM 

DEC DE 

REM 

XOR A 

REM 

ADD A. D 

REM 

JRZ 2 

REM 

JR -23 

REM 

BIT 0. A 

REM 

RETZ 

REM 

LD A. (23762) 

REM 

AND 7/and 0 

REM 

OUT 254.A 

REM 

JR -41 


GO SUB 3000: CLS 
RANDOMIZE USR s 
INK 7: BRIGHT lx 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
IF 
IF 


IF 

IF 

IF 

IF 

IF 


INKEY* 

INKEY* 

INKEY* 

INKEY* 

INKEY* 

INKEY* 


CLS 

FARVER TIL LYD" 

’"MULIGHEDER" 

.B""=MULTIFARVET BORDER" 

"“W”"=HVID BAGGRUND"’"""D" 
« i. p » i. - PATTERNED BAGGRUND"’ 
’"INDTAST DIT ONSKE" 

"o 
“ I 
"b 
"w 
"d 
”o 


.L"“=S0RT BORDER" 

’=M0RK BAGGRUND" 

.0""=0RDINAER BAGGRUND” 


THEN 

BEEP 

.05, 18: 

LET 

p«a= 1 

THEN 

BEEP 

.05. 7: 

LET bor=0 

THEN 

BEEP 

.05,30: 

LET 

bor=7 

THEN 

BEEP 

.05,10: 

LET 

bak=47 

THEN 

BEEP 

.05. 15: 

LET 

bak=0 

THEN 

BEEP 

.05. 23: 

LET 

oa=0 


BEEP .05.25: GO TO 


CODE INKEY*= 

1170 GO TO 1100 
1200 POKE s+11.bak 
POKE s+41. bor 
CLS 

IF oa THEN GO SUB 2890 
GO TO 290 
STOP 

FOR 1 =5 TO 50 STEP 5: CIRCLE 70,60, *: CIRCLE 140, 110. f: PLOT 100.50: DRAW f 
NEXT f 

FOR f=0 TO 255 STEP 5: PLOT 0.0: DRAW f.175: NEXT f: FOR f=0 TO 255 STEP 5: 
PLOT 255.0: DRAW -f,175: NEXT f 
2900 RETURN 

PAPER 0: BORDER 0: INK 0: CLS : CLS 
PRINT 

PRINT " DETTE PROGRAM ER ET LYSSHOW SOM DU SIKKERT KAENDER I FORVEJEN. 

DU SAETTER ET BAAND MED MUSIK PAA 1 OG TAENDER FOR 

DET. " 

3030 PRINT 

3040 PRINT " DU SKAL OGSAA PASSE PAA IKKE AT SKRUGE FOR KOJT OP SPEC 

TRUMMEN KAN KUN TAALE 2 WATT” 

3050 PRINT 

3100 PRINT " JUSTER VOLUMEKONTROLLEN TIL DET PAENESTE BILLEDE" 

3101 PRINT 

3120 PRINT 
PS SHIFT"" 

3121 PRINT 

3125 PRINT " PROGRAMMET VIRKER IKKE MED MICRCDRIVE. 

3131 BRIGHT 1: INK 5: PRINT AT 0.0:" ■: FOR A=0 TO 640: BEEP 0.003,50: BORDER It 
PRINT OVER If BEEP 0.03,40: BORDER 6: NEXT A: OVER 0: BRIGH - 0: BORDER 0 

3134 PRINT #11* TAST ENTER FOR STAR'" 

3135 PAUSE 0: PAPER 0: BORDER 0: INK 7: BRIGHT l: CLS : LET 30R=0: RETURN 
5000 FOR A=1 TO 2: SAVE “LYSSHOW" ^INE l: NEXT A 


FOR AT AENDRE PAA KONTROLLEN I LYSSKOWET TRYK PAA 
HVILKET VIL FAA DIG TIL VALG- MULIGHEDERNE" 
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Hangman 

110 OftOtEG ‘ mni) i __ 

120 ~ — 

130 **»* AUTHOR: Thom** R#nshof. 'wffl/ly/j J 

140 «« Source-computer! Texes instruments Person*! Computer. __ 

150 CLEAR (7m ^ 

170 COLOR 6:CLSiKEY OFF ™ 

1® LOCATE 1,1,0:PRINT "Skriv et ord eller en s*tr,in9. (Resten »f de medvirkner.de vender sis or, 1 )’:PRINT:PRINT:PRINT: INPUT ■ 
190 E*=A* ^ 

200 T=LEN(E*> ‘ ^ 

210 DIM TttLEN(MHl) 

220 DIM B»(LEM(M)I 

^40 b^iI-kidiiaTm! Dette lille program til IBM og 

260 fofmm to LEM'A«).5 om P* karaktereme i scetnin- 

270 *=WT(RND(i)*LEN<A«)ti) L ger. som manselvskriver. En 

230 Y=iNT(RND(irtLt«;:-*i*i) ® anden person end den. der 

290 cvK*m:B*m=Pt(Y)!B»(Y)=c* sHH., 7T ~~— Skrev scetningen. skal sd 

300 NE(T 1 r JS .T77ri777rrrrTT> ^ prove at gcette den. 

S S,2.1!,3S!! SpiUe.kankaraktenseressom 

330 next i et Hangman spil pd dansk, 

340 cis: color 7 hvor man i stedet (or at spille 

350 locate 12.40-len(a*>/2:prInt a*:print:print mod computeren. spiller mod 

360 for x=i to t t.eks. en ven eller kollega. 

380 next**" ” Programmet skulle kunne ko- 

390 LOCATE I3.40-LEN(A*)/2:PRINT IS J® , p6 alle IBM-kompatible 

400 COLOR 3 pc er med Microsoft BASIC. 

4io ut= inkey* Det virker ihvertfald pd Texas 

420 IF D* = MID*(E*.A.1I AND LENIDIIOO THEN LCCATE 15.A,0:PRINT D*:GOT0 460 InstmmentS PC, Advance 86, 

430 IF LEN(DS) = o then 410 Olivetti M21 og 24 pd Colum- 

440 SOUND 400.2:B=B*1 b ia 

450 LOCATE l.l.OiPRINT Bi‘FORS0G’!OOTO 410 n . , 

460 SOUND 800,3 Thomas Renhot 

470 LOCATE 1,1.0:PR!NT Bi"FORSOG" 

430 COLOR 4 

490 FOR J*1 TO LENIA*) 

500 IF M1D*IA*,J,1) = "*“ THEN 530 

510 IF D$=" ' AND D*=MID*(A*,J,1> THEN H=J:L0CATE 12,40-LEN(A*)/2*H-1.0:PRINT CMR*(254):j=LEN(A*):MID»'A*.H,li=-f:OOTO 530 
520 IF MID*(A*,J,I) = 0* THEN H=J:J=LEN(A*):MIDt<A*,H,1)=•*■ 

530 NEXT J 

540 IF D*=" " THEN 560 - 

550 LOCATE 12.40-LEf«A*)/2eH-l:PRINT 0* A 

560 COLOR 3 C- 


< IF A = LEN(Ef) THEN 600 
i A=AH 
i GOTO 410 
i COLOR 7 
LOCATE 20,1 

INPUT"Vil I prdve iser,? ",SV* 
i IF SV*<>*N" AND SVSCV THEN 150 
END 



'M 






/ Kaere'eeser. plf 

/ Vi hdber, at du er lilfreds med programmerne i \ \ V w M LJ 
J> SPECIAL C 

j Skulle du ligge inde med tllsvarende gode - og mdske endnu sjovere og 
bedre - programmer, du selv har lovet, borer vi gerne fra dig. SOFT er I 
nemlig leesernes blod, og vi betoler op til 1000 kroner for et rigtig spaen- 
1 — dende progrom. Og mdske fir netop dit program en fremtreedende plods 
1 i det neeste SOFT SPECIAL eller i "Alt om Data". 

Indsend dit progrom pd kassettebdnd eller disc og gerne vedlogt en ud- ' 
printning. Somtlige programmer testes og vurderes, inden de offentligge- 
res. Alt materiole returneres efter brug, og blodet har fuld ret til ot publi- 
cere progrommet pd tryk og eventuelt andet lagermedium. 

Programmer sendes til "Alt om Data", St. Kongensgode 72,1264 Keben- 
( havn K. 
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Indiana Birger 


■ Indiana Birger er til Spec¬ 
trum 48 K. I spillet skal du igen- 
nem en masse torskellige ba- 
ner. hvor der er de mest mcer- 
kelige ting du skal spise. Sam- 
tidig skal du undgd sten. 
Programmet har instruktioner. 
og du saver det ved at' 'GOTO 
10".□ 

Thomas Lange 


Programmer: 

Samthge attrykte listninger 
er atpravede tor ottentlig- 
gerelse Forlagel belaler 
skatletnl op til 1000 kroner 
lor godkendte Iceserpro- 
grammer Forlagel har ret 1U 
at altrykke godkendte pro¬ 
grammer i blade! og oflent- 
liggore dem pd andre 
lagermedia 




10 REM a 1984 T.L 0G 8. L SOFT 
20 REM 0PSTART 
30 CLEAR 38999« RESTORE 

40 DI** a»«3. 12) s DIM a<3) * DIM r<5>: GO SUB 0940 
50 30 SUB 1170: GO SUB 0920 
60 ROPER Os BORDER 6: CLS s GO SUB 1350 
70 REM BONE 1 
80 LET ru-ru*l 
90 I- ru-4 THEN LET ••■dl 
100 IF ru-7 THEN LET •«-*« 

110 IF ru-10 THEN LET •»-.• 

120 IF ru>"13 THEN LET •*-,« 

130 PAPER Os BORDER 6s CLS 

140 POKE ty*2.is POKE iy*4.10i POKE :y*7.250: RANDOMIZE USR iyi POKE ty*2. Oi PO 
KE Iy*4. 2s POKE ty*7. 100 
130 LET m- 161 LET y-4 
160 POKE 23692.235s FOR n-1 TO 12 
170 PRINT AT y. Ml BRIGHT 11 INK SsCHR* 144 
180 LET q-INT <RND*31)♦1 

190 IF RND>.68 THEN LET *-INT (RND*3l>*ls PRINT AT 21.«: INK 6S BRIGHT HCWR* 

133 

200 PRINT AT 21.31 S’ ■ 

210 LET m-m*<INKEY*-“8" AND *<-28)-(INKEY*-"3“ AND *>-A) 

220 PRINT AT 21.QS INK 4t BRIGHT 1 *♦* 

230 IF ATTR <y. m>- 70 THEN GO SUB 0910s RANDOMIZE USR iy 

240 IF ATTR <y. m)- 68 THEN GO SUB 1020s POKE 23692.233s PRINT AT 21.311“ “ 

250 BEEP .001.45 
260 NEXT n 

270 LET y-y*< 1 AND y (> 18) 

280 RANDOMIZE Os IF y>-18 THEN FOR 2-1 TO 200s NEXT xs BORDER Os GO SUB 0930s 
CLS s GO SUB 0890s 00 TO 1080 
290 GO TO 0160 
300 REM BANE 2 
310 LET ru-ruMS LET a-0 

320 PAPER 4s BORDER 4s CLS s GO SUB 0890s IF ru-5 THEN LET »n« 13 
330 IF ru-8 THEN LET qw-13 
340 IF ru>-1 1 THEN LET »w-I2 
350 LET m — 16s LET y-y-13 

360 PRINT TAB 5t INK 7: BRIGHT OS“H“STAB 26l"H":TAB 5S"H"tTAB 26I"H“ 

370 FOR i-l TO 20s PRINT AT I.30S INK 0S"E"S BEEP .01.1*401 NEXT i 
380 PRINT AT y. Ml INK Olf* 

390 FOR n-1 TO 130s NEXT n 
400 FOR n-1 TO 20 

410 IF !»-•>-4 THEN GO SUB 0860s PAUSE 30s GO TO 0510 
420 LET w-INT <RND*20>*6 
430 FOR Q-4w TO 1 STEP -1 
440 PRINT AT y. Ml INK Olf* 

450 PRINT AT o. -1 INK Ol"E"lAT “ 

460 IF o-l-y AND x-w THEN BEEP .1.2s LET o- 1 s LET 0 -++ 1 S PRINT AT 4.wS" “S GO 
SUB 09101 GO SUB 0890 

470 IF q-1-y AND x*l-w THEN BEEP .1.2S LET •-•♦IS LET q-15 PRINT AT 4 .nI“ “S G 
O SUB 0910s GO SUB 0890 
480 PRINT AT y.Ml“ “ 

490 LET m-m*<INKEY»-“ 8“ AND x<-28)-ClNKEV4-"3" AND x>-6> 

300 BEEP .002.qs NEXT at PRINT AT l.wt" -s PRINT AT n. 30l “ “S NEX' n 
310 GO SUB 0930s INK Os CLS s °AUSE 10s PRINT AT 6.61 "Du r*dd*d» “t*J“ bold*'"* 
AT 8. 71 "DU Y.k “ I 1231" aoiftt" 

320 PRINT AT 10.3l"Du har . ait "*•«*“ oo.nt.'s IF i.v<-0 THEN GO TO 1060 
330 FOR n»-3 TO ISx BEEP .04. ns BEEP .005.40: BEEP .004.30s NEXT ns PRINT AT 16 
.31 INK 01 ” K i a r t. I bonu»ronddn‘>" 

340 FOR f-1 TO 200s NEXT M GO TO 0570 
350 GO TO 0540 
360 REM BONUSRUNDE 

570 PAPER 0: BORDER Os CLS s PAUSE 10s FOR n-10 TO -10 STEP -1* BEEP .03.n: MX 
T ns FOR n—5 TO 15: BEEP .02.n: NEXT ns LET ru-ru+1* LET t.d-I9: LET y-lis LET 
M-2 

580 POKE i y*2.0« POKE iy*4. 2s POKE lv*7.60 
590 PRINT AT 1.111 Fi_ASH IS INK 7l "BONUSRUNDE" 

600 FOR n-1 TO 53 

610 PRINT AT INT (RND*17)*4.1 NT <RND*32>: FLASH IS INK 3:“M“ 

620 PR i NT AT INT (RND*17)*4.INT <RND*32»: BRIGHT u INK t:“L“ 

630 BEEP .002. ns NEXT n 

640 PRINT AT 1.5* INK 3*“’IDs"s FOR n«10 TO 23: PRIN* AT l,n« INn 7: BRIGHT 11“ 
K-s BEEP .001. n*37: MEX’ r. 

630 FOR q- 3 TO 21 STEP 18: FOR n-1 TO 31: PRINT AT q.nS INK 6: BRIGHT 1»"G“: BE 
EP .001.a*30*<R\D*9t: NEXT n: NEXT a 

660 FOR q—0 TO 31 STEP 31: FOR n-0 TO 21: PRINT A* n.a: INK 3: BRIGHT is“I": BE 

EP . 001.n*+60s NEXT n: NEXT qt FOR n-0 TO 31s PRINT AT O.n: INK 6:"I": BEEP .OOl 

S.n*30s NEXT n 
670 FOR n-1 TC 10 
680 PRINT AT y. m : INK 7:"F" 

690 IF iNKEY6-“5'' AND x>-2 THEN wET m«k- 1: PRINT AT y.M*lS" “ 

700 I- INKEY4=“8“ AND x<*29 'HEN LET x-x*i: PRINT AT y.M-lS" “ 

710 IF INK£Y*=-6" AND y<*19 THEN LET y»y*lS PRINT AT y-l.xS" " 

720 IF INKEY*-"7“ AND y> =5 THEN LET yy-ls PRINT AT y*l.x!" “ 

730 IF ATTR <y.x) = I33 THEN LET t.d»t.d-2: GO SUB 0850: POKE t y*2. 1: POKE y*4. 

1« POKE ty*7. 100: RANDOMIZE USR iy: POKE ty*2.0: POKE iy*4.2: POKE iy*7.60 

740 IF ATTR <y,M>-68 THEN LET •c««c*75: RANDOMIZE USR iy: GC SUB 0890 

750 BEEP . 005. x 
760 NEXT n 

770 LET t.d-t.d-i: PRINT AT 1.10*t.dS INK 0;“ “ 

780 IF t. d <«0 THEN GO TO 0800 
790 GO TO 0670 











670 

FOR 

1 n-1 TC 10 




680 

PRINT AT y. m; 

INK 

7: "F“ 


690 

IF 

INKEY6--5" 

AND 

M>*2 

THEN 

700 

IF 

INKEY*="S“ 

AND 

m < = 29 

'HEN 

710 

IF 

INK£Y*=-6" 

AND 

y <*19 

THEN 

720 

IF 

INKEY*-"7“ 

AND 

y)-5 

THEN 

730 

IF 

ATTR < y.x) = 133 

THEN 

LET 1 
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800 FOR n-1 70 200: NEXT n: GO SUB 0930 

810 CLS : PROSE 30: FOR n—10 TO 10: BEEP .05.n: NEXT n: FOR n—5 TO 15: BEE® . 
03.n: NEXT n: PRINT AT 10.8: INK 7: BRIGHT ls-TIDEN ER UDLOBET": BEEP .4.0 
820 INK 5: BRIGHT l: FOR n-1 TO 10: BEEP .1.n*(RND*10>: BEEP . 001.50*«PND*10): 
NEXT n: PRINT RT 8.6:"Du har . ait ":*c:" POINT": BEEP .1.2: PRINT R7 10.2: INK 
4:"Man no bl.var dat svaerere. 

830 REM SUB-RU7INER 

8*0 BRIGHT 0: INK 0: GO SUB 0890: FOR f-1 TO 400: NEXT f: CLS : LET y=4: GO TO 
0080 

850 PRINT RT 1.lOatitfS" ": RETURN 

840 CLS : LET i.v-l.v-1: FOR n-1 TO 100: NEXT n: PRINT RT 10.13: FLASH is INK 0 
: "BANG' 1 “: FOR n-1 TO 200: NEXT n: BEEP .2.-15 
870 FOR f-1 TO 24: BEEP .004. f: PRINT RT 10-10*COS (f / 12-PI). 15* 10*SIN <f/12*PI 
) : Ink O:"B": NEXT f 

880 PRINT RT 8.6: INK 0:"Du blev skudt af an":AT 10.7: ,, u t . I f r*ds tnskutr': PRU 
SE 100: RETURN 

890 PRINT >1:AT I.OS"SCORE ":*c:AT 1.14S-LIV “llivlRT 1.24:"RUNDE “Sry 
900 RETURN 

910 LET »c**c*125: BEEP .03.45: BEEP .02.0: RETURN 
920 FOR f-1 TO 20: BEEP .Ol.f: NEXT f: RETURN 

930 FOR f-1 TO 32: RANDOMIZE USR 60021: BEEP .001.60: NEXT fi RETURN 
9*0 PRINT INK 9: TAB 8:~VENT E" OJEBLIK" 

950 REM VAR I ABLER 

940 LET d*-“KNK“x LET h*«'NKNK": LET ■•-“NKNKN": LET j•■"KNKNKN": _ET f: 
LET at- "E" 

970 LET ru-O: LET bo-0: LET iy-60000: LET a(l)-2440 

980 LET a*(l)-“BORGE-SVEND": LET a*(2)-"HUG0-KURT": LET a*(3)-“BIRGER B.": LET 
a*<4)-"0LFERT": LET a*<5>-"FIDO": FOR h-2 TO 5: LET r<k)-i: NEXT k 
990 PAPER 4: LET ©•■“BRAVO 1 Do mar»af DET."l LET o*«"MEN no t.i r.oaat MELT and 
•t’“: LET c*-"Taa 1 atk. DYB .rdaard.m ©a..• 

1000 LET •1V-4: LET *-16: LET I»«l7i LET y-4: LET »c-0: LET ru-O: LET a*-"NK" 
1010 RETURN 

1020 PRINT INK 9! PLASH llAT y.*l"A- 

1030 FOR f-1 TO lOO: NEXT f: FOR f-1 TO 10: PAPER 7: CLS : BORDER 0: PAPER 0: C- 
S : BORDER 7: NEXT f 

10*0 POKE i y*2. 1 • POKE iy*4.20: POKE ly*7.30: RANDOMIZE USR ly: POKE iy*2.0: POK 
E iy-4.2: POKE ly-7.100 
1050 BEEP l.i: LET i.vi.v-1 

1060 IF 11v <-0 THEN PAUSE 50: CLS : GO SUB 0890: PRINT RT 10. II: PAPER 0: INK 6 
: FLASH IS "GAME OVER": FOR f —15 TO -40 STEP -is BEEP .05. f: BEEP .001.50: NEX” 
fi FOR f-1 TO 200* NEXT f: GO TO 1270 
1070 RETURN 

1080 LET sc-ftc«(y*45>»ru*l50i GO SUB 0890 

1090 INK 7: BEEP .1.0: BEEP .2.-5: BEEP .1.5: BEEP .1.9: BEEP .3.20: DRAW 250.0: 
DRAW 0.170: DRAW -250.0: DRAW 0.-170 

1 lOO INK 4: FOR n-1 TO 22: PRINT RT 3. n*4t©*<n TO n>: BEEP .Ol.n: NEXT n: BEEP . 
l.-io: INK 3: °R I NT RT 5. 5:“DU HAR NU POINT'" 

1110 INK 6: FOR n-28 TO 1 STEP -l: PRINT or 7. r.-l:e*(n TO n>: BEEP .Cl.n-5: NEXT 
n: BEEP .1.0: INK 2: FOR n-1 to 30: PRINT RT 9.nlc»(n TO n>: BEEP .Ol.r.-S: NcX” 
i* 

1120 CIRCLE 131.40.30: BEEP .1.25: BEE? .05.0 
1130 PRINT FLASH I S AT 16. 14: " PARRT " 

11*0 PRINT RT 12.8: FLASH 1S “TRYK PAR EN TRST" 

1150 PAUSE 0: CLS : GO TO 0310: INK 5 
1 160 REM UDG OC MASKINKODE 

1170 FOR r-144 TO 157: FOR *-0 TO 7: READ f: ®OKE USR CHRt ?*H.f« NEXT „: \EXT z 
1 1B0 DATA 153. 255. 189. 24. 90. 126.90. 24. 24. 24. 126. 126.24. 24. 24. 24. 3.2.33.62.3. 7.4. 
24. 192. 64. 132. 124. 192. 224.32. 24 

1 190 DATA 0.0.28.62.62.62.28.0.60.40.56. 145.255.56.40. .08.64. 160. 176.75. 14. 108.2 

4.8.186.186.186.186.186.186.186.186.170.170.178..64.74.154.170.170 

1200 DATA 126.60. 102.219. 143.223.195. 126.0.68. 100.86. 106.82.66. 126.20.8. 16. 124.2 

22. 190. 254. 108. 195. 231.126. 102. 102. 126. 231. 195.0.8.8.8. 8. 28. 127.0 

1210 FOR a-60000 TO 60064: READ n: POKE a.n: NEXT a 

1220 DATA 33. 244.0. 17. 2.0.6. 100.229.213. 197. 205. 181.3. 193. 209. 225.43. 16. 244. 201 
1230 DATA 6. 192. 33. 0.64. 17. 32. 0.54.0.25. 16. 251.58. 161.92.6. 23. 33. 32. SB. 119.25. 16 
. 252.1. 255.26. 17 

1240 DATA 0.64. 33. 1.66.237. 176. 50. 255.90. 175.50.255.87.201 
1250 RETURN 

1260 REM HIGH-SCORE LISTE 

1270 FOR a-1 TO 5: IF acU(a> THEN NEXT a: GO TO 1310 

1280 IF a<>5 THEN FOR b-5 TO a*1 STEP -i: LET a*tb>-a*<b-1>: _ET a(b)»a(b-l>: N 
EXT b 

1290 PAPER 0: INK 7: BORDER 0: CLS : PRIN" RT 12.2:“TILLYKKE DU HAR EN AF DAGENS 
*tAT 16.8:"5 BEDSTE SCORER'":AT 16.8t“INDTAST DIT NAVN" 

1300 PAUSE 200: POKE 23617.254: INPUT RT 22.0IAT 14.6I’NAVN: "« LINE at<a)t LET 
«<a)*«c: LET r(a)-ru: POKE 23617.0 

1310 BORDER 0: CLS : INK 7: PRINT RT 2. I0I"MICH SCORES":AT 5.21 FLASH Is "NAVN" S A 
T 5. 16: "SCORE" I AT 5. 241 "RUNDE" : FOR a-1 TO 5: °R I NT RT 6*2*4.2S INK 9:a*'a)tAT 6 
♦ 2*a. 16: a< a ) 

1320 INK 7: PRINT AT 6*2*a.26 Xr (a): NEXT a 

1330 FOR a-36 TO 123 STEP 83: PLOT 15. a: DRAW 2l8.0: DRAW 0.-3: DRAW -21S.0: DRA 
W 0.3: NEXT a: PAUSE 300 
1340 REM INFORMATION 

1350 CLS : BORDER 6: PAPER 0: PRINT RT 1.3l INK 7: FLASH 11" INDIANA BIRGER PAA E 
VENTYR" 

1360 INK 4: FOR n-50 TO 60: BEEP ,006.n: NEXT n: PRINT AT 5. 6: "Vai k©mman t.; fie 
r • aar*": BEEP .3.0: PRINT RT 7.9: FLASH 11 "UNDERHOLDNING* ": FOR n-60 TO 50 STEP 
-i: BEEP .001.ns NEXT n: FLASH 0: PRINT RT 9.3l"fra S. L I T.L SOFT <9 1986)": F 
OR n-20 TO -10 STEP -1: BEEP .01.n: NEXT n 

1370 PAUSE 20: FOR n—10 TO 5: BEEP .OOS.n: NEXT n: PRINT RT 15. ll“Vll du hava f 
iara ooi»*n,nMr’’ 

1380 PRINT RT 18.2l"N - START".AT 18.141"J - INSTRUKTION" 

1390 FOR f»l TO 250: IF INKEY*-"n" OR INKEY*-"N" THEN GO SUB 1000: GO TO 0080 
1400 IF INKEY*-"," OR INKEY*-"J" THEN GO TO 1*20 
1*10 NEXT f: GO TO 1510 

1420 CLS : FOR n-38 TO -10 STEP -1 : BEEP .005.nl BEE® .001.65*‘RND*15): NEX’ n: 
BEEP .2.2: PRINT RT 4.3l"I datta »d,i ik« du styra": PAUSE 40: BEEP .2.0: ®RI\7 
RT 6.91 FLASH l:"Ind.ana B.raar": BEEP .2.-2 
1*30 BEEP .2.-4: PRINT RT 8.5:"du vad ham fra f,m*n":AT 10.5: C LASH 1t"Stamp.at 
s fo'band* i »a 1 “ J BEEP .2.-6: FOR n-1 TO 100: PRINT RT 16.7t"Tryk oaa an taat • ’ ■: 
PAUSE 0: BEE P . 01.50 

14*0 CLS : BEEP .2.10: PRINT RT 1.12: FLASK IS BRIGHT IS INK 6I"F 3G F" * AT 6.11 
FLASH 01"I datta so.i ar dar tra":AT 5.1:"forsn*I;•aa banari" 

1450 PRINT RT 8. It"BANE is Undaaa aiasakaar oa“:AT 9. 11"taanaat. fter. Sa-ti oanaa 
^aahka" :RT 10. l: “for bonuaoo. nt 1 • “ : BEEP .2.10 

1*60 BEEP .1.6: INK 5: PRINT RT 13. l:"BAN£ 2: Rad boidana oa....": BEEP .1.5 
1*70 BEEP .15.0: INK 6: PRINT RT 16. 1:" BANE 3: (BOVJSRJNDE»-tan: fruat":A7 17..: 
"for bonuaoo.nt. undaaa m.narna":AT 18.1:"- da taaar oaa t.dan” 

1680 PRINT RT 21.41 FLASH ll"STYR MED PILETAS’ERNE 

1490 BEEP .2.10: PR I NT a: : INK Ol"Tryk oaa an taat." 

1500 PAUSE 0 

1510 CLS : FOR n —10 TO 10: BEC® .03.n: BEEP . 002. 45*«R'D* 15): NeXT n 
1520 BEEP .3.20: PRINT RT 0. 11: INK 6: BRIGHT it -_ASH 1 ; 1 POI NT 'ABEL" 

1530 r LASH 0: BEEP .1.0: PRINT RT 2.3: *NK 5:”R.Indiana B.raars b.i!*: BEE? 

. i. 2: PRIN T RT 4.3: INK 4: "CD. .. . Ind.ana B.raar'": BEE? .1.6 

1540 PRINT RT 6.3: INK 7: "E.F 0 db©:d 125 ot». ": BEEP .1.6: ?R IKT A‘ 3.3: INK 

61 "F.I.B. %om frutttao i ar" : BEEP .1.8 

1550 »RINT RT 10.3: INK 2:“G.En o:o*st.": BEEP .1.10: PRIN" 12.3: 1?*\ 7:' 

H.En -aaistoioa": BEE? .1.12 

1560 PRIN- AT 14.3: INK 6:"J.Panaasaak i25 ota": BEEP .1.16: PRINT AT ;6.3: 

IiK *?"K.Giaaskaar <-i j.v 1 )" 

1570 BEEP .1.16: PRINT Cl IS. 3: INK 4S“L.-ruat 75 ot*. "s BEC® .1.181 -RiN" 

A' 20.3: INK 6: “lASH ::*JTS -_AS- 0:at 2-0.*;".M.r.a »- 2 t . osanh.odar. >" 

15cO PAUSE 250: DO "0 1310 
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Budget programmet kan be- 
regne renter (hvis du kender 
satsen). afdrag (hvis du ken¬ 
der antal terminer) ud fra en 
gceld, du har indtastet. 
Programmet udtorer bereg- 
ningerne hurtigt. og designet 
pd skcermen er godt Dog skal 
du passe pd dine indtastnin- 
ger, da skcermbilledet godt 
kan odelcegges Programmet 
kan gores "torvirres" ved ind- 
tastning at en enorm rente- 
sats. 

Tastes f.eks. et ti-cilret belob 
under gceld. og en rente pd 
14.765. Ja. sd bliver skcerm- 
billedet desvcerre odelagt 
Beregningerne er rigtige alli- 
gevel.D 
John Hvidlykke 


1 © 


^0 
-4 © 
*".0 
©© 
7-© 
A© 
90 


RFM 

PFM 

PEM 


RF PE TR-VOSPROORRM- 
OPTISflH DRTfi 1 3©5 
PF'M r.RRSTEN RNDERSEN 

REM JOHN HVIDLVKKE 

RE M 

PEF F MA < X > — I NT < < xm 1 00 3>/l 00 

POKE 33290. © POKE 532© 1 . © POKE *5-*© ■ 1 

RF- I NT CHP* f 14?) PR I MT PR I NT PP I NT 

1O© PRINT TfiB(2>:PRINT CHP*<111). ROP A 

— 1 TO 32 PRINT CHR*a83); : NEXT 

PRINT CHR*(112) 

11© POP TO it PRINT TRB<2) PRINT CM 

Rt< 10© > • PR TNT _ tAb*T 35 > ; PRINT CHP*<I70) 
NEXT 

120 PRINT TflB(2>:PRINT CHR*<108>. POP © 

— 1 TO 32 PRINT CHP*'' 175); NEXT 

PRINT CHR*a8»5) 

13© POKE 781.6:ROKE 782.10POKE 783.0 S 
V© ©552© 

’ RF BET Al I NOSPROORRM *’ 

PR I NT 

TAB<4>;"COPVRIOMT: RPTISRN DA 


1-4© PRINT’ 
15© PRINT 
1©0 PRINT 
T© 1983" 
170 PRINT 
DERSEN" 

1©© PRINT 


PRINT TAB<-4>. 


' I BE 


CflRSTEN ©N 


PRINT T©B<-»>;‘ 
CflRSTEN ©NDERSEN" 

1 3© PRINT = PRINT TAB < 1 3 > 


PROGRAMMERINO 
••-JOHN HVIDLVKKE 


2©0 OE1 A* IP ©•—••••THEN 200 

210 PRINT CHR*<147> PRINT CHR* < 1 8 > ** 

©PBETRLINO 

220 POKE 7©1.3:POKE 782.10SVS ©552© 

2-30 PR I NT " ©RT I S©N DAT© 1 3©5 " 

2- 40 POKE 7-© 1.3 POKE 782.0-SVS ©5520 

250 PRINT"INDTAST OAELD" 

2©0 PRIN r : PRINT" INDTAST RENTESATS" 

270 PRINT PRINT"INDTAST ANTAL TERMINER" 
260 POKE 7©1,3 POKE 7-©2 , 1 5 SVS ©5520 

230 INPUT OAELD* IP VAL <OAELD* >—0 THEN 
2©0 

300 POKE 7©1 . 11 : POKE 7-©2, 13 : SVC ©5520 
310 INPUT PCT * : IP VAL < PCT•>—0 THEN 117N 
300 

320 POKE 781,13-POKE 782.24SVS ©5520 
330 INPUT N* : IP VAL/< N* > —0 THEN 320 

3- 40 POKE 78 1,22 : POKE 7©2.0:SVS 65520 

350 PRINT CHRf<18);" DATA 

OK < J/M > •• 


3©0 OET A*:IP R*-"H"THEN 210 
370 IP A*0"J"THEN 36© 

3©0 OAELD — VAL< OHELD*> : PCT —VAL< PCT* > : N-V 
AL < N* > 

330 VDELSE-OAELD*PCT/< 1©©•< 1 — < 1+PCT/1©0 
> T—N > > 

-40© PRINT CHR* < 1 47 > 

-4 10 POR C—1 TO 33 - PRINT CHR*<18> i CHR*<3 

2> ; : NEXT : POKE 7-© 1 , 1 • POKE 7-©2 . © 

:SVS ©5520 

420 PRINT CHR*<18>;"STARTOAELD:"PNA<OAE 
LD) "PCT : "PNA-'PCT > "TERMINER : " PNA < N > 

-43© POKE 7-© 1.3 POKE 7©2 > 0 : SVS ©5520 

-4-40 PR I NT " TERM I NSVDELSE < KR - > : "PNA< VDEL 

SE > 

-450 PRINT 

-4©» » PR I NT "TERM IN RENTE APDRAO 

RESTGAELD" 

47© POR A—1 TO 33 PRINT CHR*<33>; =NEXT 

-4©0 PRINT 

-43© POR I —1 TO N 

5< »© RENTE — GAELD*PCT/1 00 APDRAO-VDELSE-R 
ENTE OAELD—OAELD-APDRAO 

510 IP I>15 THEN GOSUB ©10 

52© PRINT FNA <1 )TAB < 7)FNA < REN I E)TAB < 1©) 
P NA <AP DRAO > TAB < 2© > PNA <OAELD > 

53© IP I—N THEN POKE 7-© 1 , 22 POKE 7”©2 . © 
SVS ©552© 

5-4© NEXT : POKE ©-4© . 1 

550 POR A—1 TO 33 PRINT CHR*(33)1 = NEXT 

560 PRINT" ©NSKES GENK0RSEL <J/N) " 

57-0 OPT A* IP A* —""THEN 57-0 
5©© IP A*—"-J" THEN 210 
530 IP A*—"N"THEN RUN 

©0© IP A*<>".J" AND A*<>"N"THEN 57-© 

©I© REM - 

©2© REM SCROLL RUT IME 
©3© REM 

©-4© IP I —1© THEN POI E 7-© 1.22 POKE 782.0 

:SVS ©552© 

©5© IP I — 1 © THEN POR E— 1 TO -4© PRINT CH 

R*<33>; NEXT 

: PP I NT " TAST <rSPAr p> POP SCROLL" 

66© POKE P'S 1 .21 POKE 782 • © : SVS ©552© 

©7-© OPT A* TP Ft*-" " THFN ©7-0 

6©0 POKP 7-0 1 .21 POKE 7©2 . © SVS ©552© = PO 
R D= 1 TO -4© PRINT FHR*<32); NEXT D 
©3© PRINT CHR* «T 1-45 > : CHR* < 1 45 > 

70© POKE ©.-4© r 7 
7-10 RETURN 


32 Soft Special 




o+x 


Med dette program kan du 
spille kryds og bolle mod din 
Amstrad. Spillet, det er af den 
avancerede slags, hvor man, 
eiter at have placeret 3 brik- 
ker, begynder at llytte dem 
mndt, indtil en eller anden 
vinder. Og til trast tor spilleren 
kan programmet ogsd "dum- 
me sig". sd man har en fair 
chance tor at vinde! 

Du spiller med kryds, og du 
vcelger positionen som 2 tal x, 
y (lodret og vandret position). 
God fornojelse.D 

Carslen Madsen 


10 • «.-» FEBPU0P 1985 BY C0P8TEN MADSEN 
2© ’ TULSTRUP 3400 HILLER0D 

30 MODE I 

40 INPUT "8L0EKF0PVE OG BAGGPUNDSFRPVE-.c• -cb IN* O.cb B0PT«EP cb 
P0PEP 0 
SO MODE 1 

*0 WINDOW 16.22 9.15 
70 WINDOW ■!. I .40.2*5.23 

80 WINDOW •2- 16.22-8-8 WINDOW «3.13.15.0.13 
90 PRINT02." I 2 r PPINT43." 1 2 3" 
lOO DIM PLODS*' 3.3) 

110 PRINT CHP«* I50>.CHP* 154 )>CHR0< 158 UCHP* I54>.CHP* I58i.OR» 
120 PRINT CHP* 149).CHP*< *2).'HP* 149 »;CMP*< 32 • • CHR*' 14* '.CHP* 32 
130 PRINT CMP*' 151 )iCHP*< 134 >.CMP* I59>.CHP* 154-.CHP* 159).CHP* 
140 PRINT CHPS' 149);CHR«< 32>.CHP«< 149> CHR9* 32>.CHR*< 149*.CHP0<32 
150 PRINT CHR»< 131 >.CWP«' l54) CHPr l39> rHP«- 154 ». CHR* 119 >. CMP* 
160 PRINT CHPt- 149)<CWRt< 32>;CHR*< 149).CMP*' 32).CHP»> 149».CHR* 32 
170 PRINT CHP*M47>iCHR*<134>.CHP«<13S'.CHP«M54*.rHP* I55..CHP* 
180 GOTO 260 

190 INPUT Hl.-DIN TUP".0.8 

200 IF 0'1 OP 0>3 OP B*1 OP 0>3 THFN CIS 01 GOTO I«0 

210 asm 

220 IF PL0OS'0.8)00 THEN GOTO 190 
230 LOCRTE 0*28*2 RPINT“X". 

240 PLODS' 0.8 1 

250 RETURN 

260 G0SU8 190 

270 IF 002 0ND B<>2 THEN C-2D-2 GO9U0 720 GOTO 300 

280 IF 0' 1 0NO 803 THEN Cl D-3 GOSUB 720 GOTO 300 

290 Cl D-l G08UB 720 
300 GOSUB 190 

310 IF PUds<l.l>*0 0ND Plads<2.1 -0 AND Pi ads' 3.1>-l AND Plads* 1 
<2«2 >-2 0ND Plads'3-2»-0 0ND Pl«d»'1.3>-1 0ND Plads< 

2. 3 ‘«0 PND Pl«d»'3.3>-0 THEN .—3 bb-2 GOTO 480 
320 FOR 08-1 TO 3 

330 FOR 88-1 TO 3 

340 IF PL0OS' 00.B8><>0 THEN GOTO 390 

330 PL0OS' 00.88>-l 

360 GOSUB 750 

370 PL0OS'0B.B8>-e 

380 IF VIND-0 THEN GOTO 390 ELSE GOTO 480 

390 NEXT BB 

400 NEXT 00 

410 FOR Cl TO 3 

420 FOP D-l TO 3 

4 30 IF PL0DS(C.O)-0 THEN GOTO 460 

440 NEXT D 

450 NEXT C 

460 GOSUB 720 

470 GOTO 490 

480 C-00 D-BB GOSUB 720 

490 GOSUB 190 

50O GOSUB 1610 

310 IF vlr.d-2 THEN 680 

520 FOR 00-1 TO 3 

530 FOR BB*1 TO 3 

540 IF PL0OS< 00»88 >< >0 THEN GOTO 600 

550 PLODS' 00.88'-l 

360 G0SU8 750 

570 PLROS' 00.BB »-0 

580 IF VIND-0 THEN GOTO 590 ELSE GOTO 680 
590 ' 

600 NEXT BB 
610 NEXT 00 
620 FOR 80-1 TO 3 
630 FOR BB-1 TO 3 

640 IF PLODS'00 88)00 THEN GOTO 660 

650 C-00 D-BB GOSUB 720 GOTO 850 

660 NEXT BB 

670 NEXT 00 

680 C-00 0-88 

690 GOSUB 720 

700 IF vind-2 THEN GOTO 1810 
710 GOTO 850 

720 LOC0TE C*2»D*2 : PRINT "0"; 

730 PLODS'C.D>-2 
740 RETURN 
758 VIND-0 

760 IF PLADS' 1 • 1 >-l 8NO PLODS' 1.2 >-l 0ND PLODS' 13)-1 THEN VIND-1 

770 IF PLODS' 2. 1 )-1 0ND PL0DS<2.2>-1 0ND PL0OS^2.3)-I THEN VIND-1 

780 IF PL0DS< 3 1 )-1 AND PLODS'3-2 )»1 0NO PL0OS'3-3>«1 THEN VIND-1 

790 IF PLODS'11 >-l 0ND PL0DS'2.1>-1 0ND PL0DS'3.I>-1 THEN VIND-1 

808 IF PLODS' 1 • 2)-1 0ND PLODS'2-2 >-l 0ND PLODS'3.2>-l THEN VIND-1 

810 IF PL0OS< 1 .3)-1 0ND PL0DS'2.3)-1 0Nf- PLODS'3-3 >-l THEN VIND-1 

820 IF PL0DS< 1 . 1 '-1 0ND PL0DS< 2.2 )«1 0ND PL0DS^3.3>-1 THEN VIND-1 

830 IF PLODS' 3 > 1 ‘-1 0NO PL0OS<2.2)-1 0ND PLOT'S*' 1.3>-1 THEN VIND-1 

840 RETURN 

850 INPUT *1 . "HVILKEN BPIK VIL DU FLYTTE” - 0-8 
860 CLSH1 

870 IF 0'1 OP 0>3 OP B<1 OP 8<3 THEN GOTO 830 
880 IF PLODS' 0BX>1 THEN GOTO 850 
890 LOCATE 0*2.8*2 PRINT” -. PLODS'0.8)«0 
900 G-R H-B 

910 INPUT «1."HVORHEN-.0.B 
920 CLSai 

930 IF 0' 1 OR 0>3 OP B'l OP B>3 THEN GOTO *10 
940 IF PLODS'0.B)<>0 THEN GOTO 910 
950 IF 0-G AND B=H THEN GOTO 910 
960 LOCATE 0*2-B*2 PPINT"X". Pt0DS'0.B‘*t 
970 GOSUB 750 


iro t.ca PEN l 


154 •. CHP0* 156>» 

• ■CHP9* 149 • 

154 ). CHPP< 157>. 
> .CHP* 149 • 

154 ><CHR«< 157 >» 

• .CHPS* 149». 

154'.CHPS* 153>< 


.2 -0 ONt- Plads 


980 IF viftd-1 THEN GOTO 1940 
990 GOSUB 1610 
1000 .--a* d-bb 

1010 IF viftd-2 THEN GOSUB 728 GOTO 1810 

1020 FOP 0O-1 TO 3 

1030 FOP 88*1 TO 3 

1040 IF PLODS* 00-08* >0 THEN 1090 

1050 PLODS'00 -BB -1 

I860 GOSLG 750 

1070 PLODS' OR-88‘-0 

1080 IF VIND-0 THEN 1090 ELSE 1310 

1090 NEXT 88 

1100 NEXT 00 

1110 FOP aa-1 TO 3 

1120 FOP bb-1 TO 3 

1130 IF Plads'aa .bb >02 THEN 1180 

1140 Plads' »a bb-1 

1150 COS'.® 750 

1160 Pi ids' aa.bb>-2 

1170 IF vind-0 THEN GOTO 1200 
1180 NEXT bb 
1190 NEXT aa 
1200 9-aa b-bb 

1210 LOCATE 9*2.h*2 PRINT" "> 

1220 P 1 ids' 9• b )-0 
1230 FOP aa-1 TO 3 
1240 FOP BB-1 TO 3 

1250 IF Plads'aa.bb><>0 THEN GOTO 1280 
1260 IF aa-9 AND bb-b THEN GOTO 1280 

1279 LOCATE aa*2.bb*2 PPINT"0". Plads' aa-bb)-2 GOTO 850 

1280 NEXT bb 
1290 NEXT aa 
1300 END 

1316 C-00 D-B8 

1320 FOP 00-1 TO 3 

1330 FOP BB-1 TO 3 

1340 IF PLODS'00 88 >02 THEN 1390 

1350 PLODS'00 . BB)-1 

1360 GOSUB 750 

1370 IF VIND-0 THEN E-00 F-B© GOTO 1570 

1380 PLODS'00 . B8*-2 

1390 NEXT BB 

1400 NEXT 00 

1410 FOP 00-1 TO 3 

1420 FOP BB-1 TO 3 

1430 IF PLODS' 00•B8 X >2 THEN GOTO 1480 
1440 PLODS'00.88>-0 
1450 L-00 
1460 M—88 

1470 LOCATE 00*2.B8*2 PRINT" "» 

1490 NEXT BB 
1490 NEXT 00 
1500 FOP 00-1 TO 3 
1510 FOP 88-1 TO 3 

1520 IF 00-L AND B8-M THEN GOTO 1550 
1530 IF PLODS'00.88)00 THEN GOTO 1550 
1540 C-00 D-88 GOSUB 720 
1550 NEXT 88 
1568 NEXT 00 

1570 LOCATE E*2.F*2 PRINT" -j 

1580 PLODS' E.F)-0 

1590 C0SU8 720 

1600 GOTO 850 

1610 FOP aa-1 TO 3 

1620 FOP bb-1 TO 3 

1630 IF p lads'aa,bbK>0 THEN 1688 

1640 p tads'as. bb)-2 

1650 C0SU8 1718 

1660 p lads'aa-bb)-0 

1670 IF Vird-l THEN vind-2 * P lads' aa .bb >-2 PETIJPN 

1680 NEXT bb 

1690 NEXT aa 

1700 vlnd-0 RETURN 

1710 vind-0 

1720 IF PLODS' 1.1 >-2 AND PLODS'1.2>-2 AND PLODS'1.3>-2 THEN 
1730 IF PLODS' 2. 1 )-2 AND PL0DS'2.2)-2 AND PL0DS'2.3>-2 THEN 
1740 IF PLODS' 3.1 '-2 AND PL0DS'3.2)-2 AND PLODS' 3, 3>-2 THEN 

1750 IF PLODS' 1.1 )-2 AND PLODS'2.1W AND PLODS' 3,1>-2 THEN 

1760 IF PLODS' 1.2>-2 AND PL0DS'2.2>-2 AND PLODS'3.2)-2 THEN 
1770 IF PLODS'1.3 >-2 AND PLODS'2.3>-2 AND PL0DS'3.3)-2 THEN 
1780 IF PLODS'1.1 >-2 AND PLODS'2.2 >-2 AND PL0DS'3.3>-2 THEM 
1790 IF PLODS' 3.1 >-2 0*0 PLODS'2.2>-2 AND PLODS'1.3 )-2 THEN 
1800 RETURN 

1819 FOR aa-1 TO 3 

1820 FOP bb-1 TO 3 

1838 IF Pi ads' aa.bbX>2 THEN GOTO 1880 
1849 Pi ads' aa.bb>-0 
1858 C0SU8 1710 
I860 pIADS' aa.bb*-2 

1870 IF vind-1 THEN LOCATE aa*2>bb*2 PRINT" ", GOTO 1900 
1880 NEXT bb 
1890 NEXT a* 

1900 INPUT tl.-JEG V0NDT VIL DU SPILLE IGEN";0* 

1910 a0-UPPERB<*• > 

1929 IF «*="JO" THEN PUN 50 

1930 END 

1940 IHMT SI. “DU VONDT. VIL DU SPILLE IGEN-.O* 

1950 GOTO 1910 

65535 SPEED WRITE 1 SAVE "KRYDS % BOLLE" 
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Commodore tricks 


CBM 

Sprites 




■ Her er sd el program, der 
hjcelper dig med at konstrue- 
re sprites. Programmet er be- 
regnet til Commodore 64. 
Man tegner med joystick port 
1. Her kan man bdde scette 
og slette bits ved at gd op og 
pege pd det pdgceldende og 
trykke tire. Ndr spriten er lcer- 
dig, trykkes FI. efter et stykke 
tid kommer sd de pdgcelden¬ 
de data. □ 

Bent Hansen 


10 PRINT-fcJS":P0KE33231,0 

20 PRINT" PROGRAMMET ER EN HJAELP TIL KONSTK- 
30 PRINT- TIONER AF SPRITES. 

40 PRINT- OER UOFYLDES FELTER VEO HJAELP AF ET" 

50 PRINT" ET JOYSTICK. HVIS DER SKAL RETTES 
60 PRINT- BRUGES OET NEOENUNOER STAAENDE. 

70 PRINTrPRINT 

80 PR I NT" -- N 

90 PRINT’ | O CLR SLAETTER FELTERNE | 

100 PRINT" | • ON FYLOER FELTERNE | 

I 10 PRINT" '-— 

120 PRINTsPRINT 

130 PRINT- ^ 

140 PRINT- IB | 

ISO PRINT" ,- J'( *- N 

160 PRINT* | BENT HANSEN | 

170 PRINT" *- , - j 

180 PRINT- | I | 

190 PRINT" f —'N 

200 PR I NT- |19-83| 

210 PRINT" '- J 

220 F0RT-0T03000:NEXT 

230 PRINT- »;!OERE f-CD SPACE" 

240 UAIT198,I 

230 P0KE33281,0:P0KE33280,0:S-42 

260 V-33248:P0KE2042,13:P0KEV*41,1 

270 F0RN-0T01 16 : READA:POKE49132 *N,A : tCXT 

280 DATA 169,3,14 1,132,4,169,12,141,133,4 

290 DATA 169,32,141,130,4,141,131 ,4,169,87,141,149,4 

300 0ATA169,18,141,134,4 

310 DATA 169,32,14 1,230,4,14 1,231 ,4:REM36 

320 0ATA169.42,141,229,4,169,13,141,232,4,169,14,141,233,4 

330 DATA 169,116,141,148,4,141,188,4,141,228,4,141,12,3,141,32,3,141 ,92,3sREM72 
340 0ATA14 1,132.3,141 , 1 72,3,141 ,212,3.141,232,3,141 ,36,6,141 ,76,6,141 , 1 16,6 
330 DATA 141,136,6,141,196,6,141 ,236,6,141,20,7,141 ,60,7,141,100,7,141,140,7 
360 0ATA141,108,4,96 

370 F0RN-0T062:READO:P0KE832*N,0«NEXT 
380 P0KEV*4,10:P0KEV*3,10 

390 OATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
400 OATAO,231,0,0,233,0,0,231,0,0,90,0,0,90,0 
410 OATAO,231,0,0,233,0,0,231,0,0,0,0,0,0,0,0 
420 OATAO,0,0,0,0,0,0,0,0,0,0,0,0,0 
430 PR INT-J-:0IM0< 29,22,3),A< 29,3):X-4:Y-2 

440 PRINT* J" :PRINTTAB< 10) ■ ■■■ ■■ !! 23456781234367812343678 - tPOKEV*21,4 
430 F0RT-0T020 

460 PRINTTAB< 0)T,SPC< 0)-— W I f I I I I I 1 I I 1 1 I \ 17 I M l II II - 
470 NEXT 

480 PRINT- - J1ATA FI" 

490 SYS<49132) 

300 J-PEEK<36320)tIFPEEK< 197>■4THEN880 
310 P0KEV*4,< X *8 >♦16:POKEV♦ S ,<Y*8>*44 
320 IF< JAND 1 >-OTHENY-Y-1: IFY< 2THENY-2 
330 IF< JAfX>2 > ■OTHENY* Y* 1 : IF Y >22THENY-22 
340 IF< JAN04 ) -OTHEN<-X- 1 : IFX< 4THENX-4 
330 IF( JAf-08 ) -OTHENX-X* 1 l IFX >29THENX-29 

360 IF< JAND16)-OTHENPOKE1024 *X*Y«40,S:SYS< 49132):G0T0380 
370 G0T0490 

380 IF<JAN)16)-0AN)Y-3AN0X-29THENS-79:G0T0490 
390 IF<JAND16)*OAh©Y-3ANDX-29THENS-42: G0T0490 
600 IFS-79THEND< X,Y,1> -0 
610 IFS-79THEN0<X,Y,2>-0 
620 IFS-79THEN0<X,Y,3)-O:G0T0490 
630 IFX-4THEN0<X,Y,1>■128SG0T0490 
640 IFX »3THEN0< X,Y,1> *64 : G0T0490 
630 IFX-6THENEK X,Y,1)»32 :GOT0490 
660 !FX-7THEND< X,Y, | >■ 16*G0T0490 
670 IFX-8THEND'X,Y,1)-8:G0T0490 
680 IFX-9THENX X,Y,1)-4:G0T0490 
690 IFX-lOTHENX X,Y,1)-2:G0T0490 
700 IFX-11THEN0<X,Y,1>-lJG0T0490 
710 IFX-12THEND< X,Y,2)- 128 *G0T0490 
720 IFX-13THENO<X,Y,2)-64:G0T0490 
730 IFX-14THEND<X,Y,2)-32:G0T0490 
740 IFX-13THEN0<X,Y,2)- 16sG0T0490 
730 IFX-16THEND< X,Y,2>-8:G0T0490 
760 IFX-17THEND<X,Y,2)-4:G0T0490 
770 IFX-I8THEND<X,Y,2>-2:G0T0490 
780 IFX-19THEN0< X,Y,2)-1:G0T0490 
790 IFX-20THEN0' X,Y,3)■128:G0T0490 
800 IFX-21THEND< X,Y,3)-64:G0T0490 
810 IFX-22THEN0<X,Y,3)»32:G0T0490 
820 IFX-23THEN0< X,Y,3)-16* G0T0490 
330 IFX=24THENO< X,Y,3)-8:GOT0490 
340 IFX-23THEfCK X,Y,3)-4:G0T0490 
330 IFX=26THEN)< X , Y ,3 )-2 :G0T0490 
360 IFX-27THEND< X,Y,3)-1*G0T0490 
370 G0T0490 

830 FORU-1T03:F0RR-2T022:F0RT-4T027 
390 A< R,U)»A< R,U)*0< T,R,U) 

900 NEXT:NEXT:NEXT:POKEV*21,0 

910 PRINT J BMMM DATA DATA DATA 

920 F0RH-2T022 

930 print,a<h,i > ,a< h,2> ,A< H,3)SNEXT 
940 PRINT-^ORTSAET MED F3 - 
930 PRINT’J RESTART MED F3 ■ 

960 IFPEEK<197)«3THENCLR:RESTORE:G0T0230 
970 IFPEEK< 197)=6THENSYS<64733) 

980 G0T0960 
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Spectrum 


/ 


I Meteor vtil ZX-Spectrum skat 
du styre dtt rumsktb gennem 
en kcempe meteorregn. 
uden selv at bhve ramt 
Du har kun 61 ltv. sd du skat 
virkelrg koncentrere dig. hvis 
du vrl overleve Du styrer dil 
rumskrb med 5 lor venstre og 8 
lor hoire 

Kan du lave 1000point. Inden 
din nabo gar deP 

Lars Marcussen 


1000 
INK 7: 


1 GO SOB 100: GO SOB 

2 BORDER 0: PAPER 0: 

3 PRINT AT 10.X5" " 

4 IF INKEY*="8" THEN 

5 IF INKEY#=“5" THEN 
7 PRINT AT 10.xS INK 
S LET s=s+l 

10 PRIN’ AT 2i,RND*305 INK 
'!AT 21.RND*30! INK 2!"B" 

20 LET 1=USR <3280) 

25 BEEP .002,RND*30 

26 IF SCREEN* <10,x)=" 

30 GO TO 3 

100 FOR a=0 TO 
110 RETURN 

DATA 0.BIN 


CLS 


>.£T 3=0: _ET x=i0 


LET x*x+l: 
LET X=X-1t 
5: "A" 


X> =29 
X <=0 • 


THEN 

HEN 


LE* 


2i ' B 1 ;AT 21.R\3*305 INK 6!"3";AT 21,SND*30i INK 3' 


THEN 3C TO 200 


15: READ z: =GKE L'SR •«“+«,z: NEXT a 


i0il010.BIN 11111110.BIN 11111110.SIN 0.000100,BIN OOillOOO.BIN 
00111000, BIN 00010000, BIN 00100100.BIN OOlOllOO.BIN 01111'. 11, BIN HlllllO.SIN 0 
111100,BIN 001 111 10,BIN 01.10010,BIN 00100000 

AT 9,7; Fi_ASH 1? INK 1J PAPER 5; 1 3BBGAMEACVERB5B" 
at ii,io;"SCCRE=";s 

PAUSE 0: BEEP 1,10: CwS : GC SuB 1000: GO TQ 2 
1,135 INK 2! PAPER 6; FLASH 1! "B.TETECRB" 


PRINT 

PRINT 

PAUSE 

PRINT 

PRINT 


5,0; INK 
ORREGN. 

! INK Si” 
0 R 


6; 1 


DU SKAL STYRE DIT RL"*'- 


SKIB IGENNEM EM M 


II II g II II ^ 

5 <=A=> 3 


METEOR" 


1020 PRINT 
TICK" 

1030 PLOT 44,28: DRAW 73,0: DRAW 0,45: DRAW -73,0: DRAW 0,-45 
1040 PRINT StO; AT 1,10; INK 4; FLASH ii PA' J ER IS TRY* tv.EV.INE" 

1030 PAUSE 0: FOR Z=0 TO 21! BEEP .0i,.0: BEE? .02,40: _ET _=USR 3230: 
LS : RETURN 

2000 REN a******************* 

2010 REM a******************* 

2020 RE V ! ***!_ARS MARCUSSEN*** 

2030 REM ******************** 

2040 REM ******************** 

2050 REM *****6600 VEJS****** 

2060 REM ******************** 

2070 REM ******************** 


JOYS 


NEXT Z-. C 
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■ Dette er personbase-pro- 
gram til ZX-81 med mindst 16K 
RAM. Programmet har plads 
til 50 personer, der mb fylde 
hver 50 karakterer. 

Tast tarst program 1 ind, kar 
det og tast de 43 hex-koder 
ind. Nu kan program 2 tastes 
ind samtidigt med linie 10-60 
slettes i hex-loaderen. 
Programmet kan nu kares 
med RUN og starter op med 
en menu at 8 valgmulighe- 
der. Man kan tlytte sin cursor 
op og ned med piletasterne 
og trykke newline ud tor sit 
valg. Du har talgende mulig- 
heder: 

Tast nyt ind: Indtast et register- 
nummer mellem 1 og 50, og 
deretter oplysningeme om 
personen. 

Sage i register: Indtast num- 
mer eller oplysninger pd den 
person, du sager, og compu- 
teren finder den/de sagte per- 
son(er). 

Rette i register: Indtast num- 
meret pd den person, som du 
ansker at rette pd oplysnin- 
gerne til, Placer cursoren pd 
den anskede linie. ret de tejl- 
agtige oplysninger og tryk 
newline. 

Save program: Programmet 
SAVE's to gange efter hinan- 
den. Ndr man sd nceste gang 
LOAD'er programmet, skal 
man indtaste koden M.C.K. Er 
denne kode torkert, udfarer 
computeren kommandoen 
NEW. 

Slet register: Indtast nummeret 
pd det register, som man an¬ 
sker slettet eftertulgt at newli¬ 
ne. 

Instruktioner: Skriver instruk- 
tionerne ud pd skcermen eller 
printer, hvis dette er valgt. 

Du bar ikke renummerere 
programmet, da det benytter 
interne GOTO/GOSUB-variab- 
le. 

Hvis man pd en eller anden 
mdde kommer ud at pro¬ 
grammet, startes det igen 
med GOTO 100. Brug aldrig 
RUN, da det sletter alle vari- 
abler og dermed alle person- 
oplysninger.D 

Henrik Eriksen 



T 




PROGRAM 1 

i rem 00000000000000000000000 
000000000000000000000 
10 FOR Xs16514 TO 16556 
20 INPUT Xt 

30 POKE X , 16*C0DE XS^CODE X|(2 
» -476 

40 SCROLL 
50 PRINT X.Xt 
60 NEXT X 

MRSKINKOOEN ER F0LGENDE 
3E 69 


AflOGRAM 2 


10®DIM NilURL "51" 
20 DIM Rf(URL "61" 
30 DIM 66(URL 51" 
40 DIM C61URL "61" 
50 DIM TitURL 61 

60 CI M If CUAi. " 61 " 

70 DIM P|(URL "51 
75 DIM Ft(URL 25" 
35 DIM Xtty^^jT^j 

: DU 1 ST0PPER*U^W^W 
YKKE ""5"" OG GRR R U 
TRYKKE ""N/L"" WMk 
MRN SKRIUER DE OPU 
, MRN MRR PRR DETMRN 
OMPUTEREN UIL SRR FI 

SW&kSPKt ■ 


51".URL 

I I".URL 
1".URL 
1".URL 
1".URL 
1".UAL 


100 CLS 

102 RRND USR URL 16614" 
1 ®? »W0U_.... ... .. 


RT URL "4",URL "10" 

§ "6". URL "8". 

"10".URL "8" 
"12".URL "8" 
;;i4",URL "8" 
"16".URL "8" 
18".URL "8" 


"12" 


"10" 


"8”; 

■ 

"8"; 

■ 

"8" 


•e" 


"8 M 


• e" 


"8" 


•8" 



111 LET U^Y ftL 6 
220 PRXNT*AT Y,X."1" 

225,IF INKEYS."" THEN GOTO URL 

230 IF INKEYS."6" THEN LET Y«Y» 
URL "2" 

240 IF INKEYI.-7" THEN LET Y.Y- 
URL "2" 

241 IF Y>URL ”20" THEN LET Y-UR 

242 IF Y <URL "6" THEN LET Y.URL 

250 PRINT RT U.X." " 

255 IF (CODE INKEYI-118) THEN G 
OTO URL 300" 


260 GOTO URL "211" 

305 GOTO (Y *200) 

400 CLS 

410 PRINT RT URL "2".URL 


41^PRINTRT 

42^PRiWrT 


420 PRINT RT URL "4",URL "0";"N 

R. " 

430 PRINT RT URL 6".URL ”0","N 
RUN" 

440 PRINT RT URL 6",UAL "0";"A 

DRESSE 

450 PRINT RT URL "10".URL "0";" 
BY" 

460 PRINT RT URL "12".URL "0";" 
T LF " 

470 PRINT RT URL "14",URL "0"i" 
COMPUTER" 

460 PRINT RT URL "16",URL "0";" 
INTER." 

490 PRINT RT URL "16",URL 0 ;" 
RNDET" 

MV Y.URL 6" THEN OOTO URL 
"Ifi4j" 18 ™ CN GOTO URL 

495 PRINT RT URL 20",URL "9"." 
NUMMER t1-50)" 

496 INPUT h 

497 PRINT RT URL 20”,URL t 9"." 

498 PRINT RT URL 4".URL "10",h 

499 XF Y.URL "10" THEN GOTO URL 

500"LET U.URL ”6" 

501 IF V.URL 6" THEN LET U.URL 

111 pSlNT‘«T L U,p e | 

53® IF INKEY$b"" THEN GOTO OOL 
" 880 " 

539 teT HbICODE INNEY*) 

54® IF B.y«L 118" THEN PRINT R 

541 IF R.ORL "118" THEN LET U.U 
♦URL "8" 

548 IF fl.URL "118" THEN LET P-U 
RL "9" 

543 IF R.UflL "118" THEN GOTO UR 
L "580" 

544 IF R.URL "18" THEN OOTO URL 

?S§ a iF R.URL "113" OR R.URL "11 
4" OR R.URL "112" OR R.URL 115" 
THEN GOTO URL "600" 

550 PRINT RT U.P.CMR* R. 

551 GOTO URL "853" 

552 PRINT RT U.P," 

553 IF Y.URL "6" THEN GOTO URL 

i 280 " 

59 GOTO URL "700" 

560 LET P.P»URL "1" 

? 62 IF U.URL "20" AND Y.URL "6" 
MEN GOTO URL "1293" 

565 IF U.URL "20" THEN GOTO URL 
"750" 


pSlNT‘flT L U,p e ■ 

IF INKEY 8b"" THE 


57® GOTO URL "58®" 

m PRINT RT U.P," "i 

IF R.URL "118" THEN LET UaU 
-URL "8" 

68® IF fl.URL "113" THEN LET U.U 
♦URL "8" 

63® IF fl.URL "114" THEN LET P=P 
-URL "1" 

64® IF R.URL "115" THEN LET P.P 
♦URL "1" 

65® IF U<URL "6" THEN LET U.URL 
68® IF U>UAL "18" THEN LET U.UR 
67® IF P <URL "1»" THEN LET P.UR 

l "le¬ 
es® IF P>URL "31" THEN LET P.UR 

‘‘89® GOTO URL "580" 

70® LET HI.CHRI R 

701 IF R.URL "18" THEN LET H*." 


70S LET B.P 

7®9 LET B.B-URL "9" 

71® IF U.URL "8" THE 


71® IF U.URL "8" THEN LET RilH, 

8) .HI 

711 IF U.URL "6" THEN LET NSIH, 

8) .HI 

713 IF U.URL "10" THEN LET 81IH 

.81 *HI 

715 IF U.URL "18" THEN LET TSIH 
,6).HI 

717 IF U.URL "14" THEN LET ClIH 

.6).HI 

718 IF U.URL "18" THEN LET PI(H 

.8).HI 

719 IF U.URL "16" THEN LET II(H 

'78® M 5oTO URL "56®" 

7|1 0 IF Y.URL "1®" THEN GOTO URL 

754 PRINT RT URL "80",URL "3";" 
FLERE NYE PERSONER (U/N)" 


THEN GOTO URL 
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76a IP lNKEYt."J" then goto url 
" 400 " 

770 IP INKEY t."N" THEN GOTO URL 
"188" 

760 GOTO URL "751" 

800 CL5 

SO^RI^^jyjRL "2".URL 8"; B 
81^G0tWjR^*428 " 

820 PRINT RT URL "6",URL "10";N 

*822 PRINT RT URL "8".URL "18".R 
• (h) 

824 PRINT RT URL "18".URL "10". 
Bt IM) 

826 PRINT RT URL "12".URL "10", 
Tt (H> 

628 PRINT RT URL "14".URL "10", 
Cf (H) 

630 PRINT RT URL ”16",URL "10". 
It (M) 

840 GOTO URL 500 
650 PRINT RT URL "20",URL "6"." 
SKRL DER RETTES MERE (J/N)" 

"800" r INKCT *“ ° Thcn suiw VMU 

865 IP INKEYt»"N" THEN GOTO URL 


870 OOTO URL "860" 

000 CL5 

010 PRINT RT URL "10",URL 0".” 
PROGRRMMET BLIUER 5RUET 2 GRNGE 

UNDER NRUNET "MCK. 

020 PRU5E URL "200" 

940 PRINT RT URL "10".URL "0 ." 
SRET BRRNDOPTRGEREN TIL RT OP- 


SRET BRRNDOPTRGER 
TRGE OG TRYK N/L 
050 PRU5E URL "5 


HI *'3" 

061 PRINT RT URL "10",URL "0", 
DU HRR NU LORDET PROGRRMMET TRYK 
""N/L"" POR RT KOMME UIDERE I P 
ROGRRMMET ELLER ""5"" POR RT 5RU 

064 IP CODE INKEY taURL "116" TH 
EN GOTO URL "969" 

965 IP INKEYt ■ " S" THEN GOTO URL 
"967" 

966 GOTO URL 964 
067 NEXT N 

960 POKE 16500,100 

071 PRINT RT URL "0 .URL "10"." 
INDGRNGSKODE" 

072 INPUT Gt 

073 IP Gt■"MCK" THEN POKE 16509 

, 0 

974 IP Gt < >"MCK" THEN NEu 
075 GOTO URL "100 

ill® GOTO URL "1302 
1203 LET XCil)■00 


LET Xi i1)."00 
LET 55.URL 0 
POR J«URL "1" 
LET Ft(J»."00" 
NEXT J 


TO URL "25" 


1213 LET RR.URL 0 

1214 LET 66.URL 0 

1215 LET TT.URL 0 

1216 LET CC.URL 0 

1217 LET II.URL 0 

1218 LET PP.URL 0 
1220 GOTO URL 420 

1250 LET Mt-CHRt R 

1251 IP R.URL "18 


THEN LET Mt« 


1252 IP U.URL 6" THEN LET NN.NN 
♦URL "1 

1253 IP U>URL 8" THEN LET RR.RR 
♦URL "1" 

1254 IP U.URL "10" THEN LET 86.6 
BtURL "1" 


BtURL "1" 

1255 IP U.URL "12" THEN LET TT.T 
TtURL "1" 

1256 IP U.URL "14" THEN LET CC«C 

c >url "l" 

1257 IP U.URL "16" THEN LET II.I 
ItURL "1" 

1258 LET B«P 

1259 LET 8*8-URL "9" 

1260 IP U.URL "8" THEN LET Rt(51 

126IP U.URL "18" THEN LET PP.P 

P*1 

1265 IP U.URL "4" RND Mt>*"l RN 
D Mt < «"50" THEN LET Xtil)-Mt(l) 
1270 IP U.URL 6" THEN LET Nt(51 
,8).Mt 

1275 IP U.URL "18" THEN LET Pt15 

1.6) -Mt 

1280 IP U.URL ”10" THEN LET Bt i5 

1.6) -Ml 

1265 IP U.URL "16" THEN LET It(5 


1.8)■Mt 

1265 IP U.URL "16" THEN LET It(5 

1200*1^ U.URL "12" THEN LET Tt i5 
1,6) «MJ 

1201 IP U.URL "14" THEN LET Ct(5 


URL "14" THEN LET Ct (5 


1292 GOTO URL 560" 

1203 PRINT RT URL "20".URL 0"." 
ER DU 5IKKER PRR 0PLY5NINOERNE 

(J/N)" 

1205 IP INKEYt■"J" THEN LET 55.U 
RL "4" 

1206 IP iNKEYf "J" OR INKEYt."N” 
THEN GOTO URL "1293" 

1207 GOTO URL "1204" 

1300 PRINT RT URL "20",URL "0"." 
JEG UIL NU 50GE I REGISTERET 

1301 GOTO URL "1310" 

1302 LET Rt(51)■”111111111111111 
Hill- 

1303 LET Nt(51)."111111111111111 

1304 LET 68(51)."111111111111111 

1305 LET It(51)."111111111111111 

1306 LET Pt(51)■“111111111111111 

1307 LET Ct(51)."111111111111111 

1308 LET Ct(51)."1111111111" 

1300 GOTO URL "1203" 

1310 PRUSE URL "99" 

1331 IP NN >URL "20" OR NN.URL "0 
" THEN LET NN.URL 20" 

1332 IP RR >URL "20" OR RR-URL ”0 
THEN LET RR.URL 20" 

1333 IP PP >URL "15" OR PP.URL "0 
" THEN LET PP.URL "15" 

1334 IP 66 >URL "15" OR 66.URL "0 
" THEN LET 66.URL "16" 


OR NN.URL "0 
20 " 

OR RR.URL "0 
20 " 

^OR PP.URL "0 

OR 68.URL "0 
15" 


1335 IP COURL "15" OR CC.URL "0 
THEN LET CC.URL "15" 

1336 IP II>URL "15" OR U.URL "0 
" THEN LET U.URL "15" 

1337 IP TT >URL 10 OR TT .URL "0 
" THEN LET TT.URL 10" 

1345 POST 

1346 POR L-URL "1" TO URL "50 

1347 POR U.URL "1" TO URL 20" 

1348 IP X|(l)<>'00" THEN GOTO UR 
L "1440" 

1340 IP U>URL "20"-NN THEN GOTO 

1350 t (L,U TO NN»U-URL "1"). 
Nt(URL 51".URL "1" TO NN) THEN 
GOTO URL "1451" 

1351 IP U >URL 20"-RR THEN GOTO 
URL "1355" 

1354 IP RtiL.U TO RRtU-URL "1"). 
Rt(URL 51".URL "1" TO RR) THEN 
GOTO URL "1452" 

1355 IP U > URL "10"-TT THEN GOTO 


2400 GOTO URL "2800" 
2600 CLS 


URL "1357" 

1356 IP Tt(L.U TO TTtU-URL "1" 

T8(URL 51".URL ”1" TO TT) THEN 
GOTO URL ”1453" 

1357 IP U > URL "15"-CC THEN GOTO 
URL "1359" 

1358 IP Ct(L.U TO CCtU-URL "1")« 
Ct(URL 51".URL "1" TO CC) THEN 
GOTO URL "1454 

1359. IP U >URL "15"-68 THEN GOTO 

13^0 Ir Bl (L.y TO BB.U-UBL "i">« 
BfCVBL '51".VflL "1" TO BB) THEN 
GOTO GBL "1*55" 

1361 IF U.UBL "1B"-II THEN GOTO 

136s"lF 6 !. (L.U TO IltU-URL ”1"). 
It(URL 51".URL "1" TO ID THEN 
GOTO URL "1456 

1366 IP U>URL "15 -PP THEN GOTO 
URL "1374" 

1360 IP P|(L,U TO PPtU-URL "1"). 
PflURL 51".URL "1" TO PP) THEN 
GOTO URL "1457" 

1374 NEXT U 


TO PP) THEN 


1374 NEXT U 
1376 NEXT L 
1440 GOTO URL "1458" 

1450 IP NNOURL 20" THEN GOTO U 
RL "1350" 

1451 IP RROURL 20" THEN GOTO U 
RL "1354 

1452 IP TT < > URL "10" THEN GOTO U 
RL "1356 

1453 IP CCOURL "15" THEN GOTO U 
ml "1358" 

1454 IP 6BOUAL ”15" THEN GOTO U 
RL "1360 

1455 IP IIOURL ”15" THEN GOTO U 
RL "1365" 

1456 IP PPOURL IS" THEN GOTO U 
RL "1369" 

1457 GOTO URL "1450 


1456 IP PPoUfl 
RL "1369 

1457 GOTO URL 


15" THEN GOTO U 




URL Xt(l) 

URL "1" THEN GOTO URL 


1470 POR J.URL "1" TO URL 25" 

1545 LET K.L 

1546 LET K.KtURL 28 

1548 IP K <URl 37" THEN LET Pt(J 
.URL "l").CMRt URL "26" 

1540 IP K>URL "37" RND K <URL 48 
" THEN LET FtU.URL "l’l.CHRt UR 


THEN L 
L "20 

1550 IP 
8" THEN 
RL "30" 

1551 IP 


LET Pt U.URL "1") .CHR 


1551 IP K t .URL 58" RND K<URL "6 
8" THEN LET PtiJ.URL "l").CHRt U 

ml "31 

1552 IP K >.URL 68 RND K «URL "7 
8 THEN LET Pt U.URL "l")»CMRt U 
RL "32" 

1553 IP K >.URL "78" RND K <URL 8 
8 THEN LET PtiJ.URL "l").CHRt U 
RL "33" 

1554 IP K >URL 37" RND K < URL "48 
THEN LET K.K-URL 10 

1555 IP K >.URL "40" RND K <URL "5 
8 THEN LET K.K-URL "20” 

1556 IP K >.URL 58 RND K < URL "6 
8" THEN LET K.K-URL "30" 

1557 IP K >.URL 68" RND K < URL "7 
8 THEN LET K.K-URL 40 

1558 IP K >.URL 78" RND KiURl 8 
8 THEN LET K.K-URL 50 

1550 LET PtiJ.URL 2").CHRt K 

1565 IP L.URL 50" THEN GOTO URL 
"1700" 

1566 IP 55*URL "4" THEN GOTO URL 
1700" 


1570 GOTO 
1680 NEXT _ 

lilt S8T8 \sst --nr 

1700 CLS 

1701 5L0U 

1710 IP PtiURL "1".URL "1" TO UR 
L "2”). 00" THEN PRINT RT URL "2 
0".URL "0"."JEG MRR IKKE PUNDET 
DET DU SOGTE" 

1720 IP PtiURL "1",URL "1" TO UR 
L "2")<>00 THEN GOTO URL "1730 

1721 PRUSE URL 100 
1724 GOTO URL "100" 

1732 PRINT RT URL "20 .URL "0"," 
JEG PRNDT POLDENDE ",J." NRUN/NR 
UNE" 

1734 PRUSE URL "100” 

1735 PR3T 

1736 CLS 

1730 POR Z.URL "1" TO J 
1740 PRST 

1745 PRINT Pt(Z.URL "1" TO URL " 
2 ") 

1746 LET XX.URL PtiZ) 

1755 PRINT Nt(XX) 

1765 PRINT Rt(XX) 

1775 PRINT 6t(XX) 

1705 PRINT Tt(XX) 

1705 PRINT Ct(XX) 

1805 PRINT I*(XX) 

1815 PRINT Pt(XX) 

1816 PRINT 

1818 PRINT "TRYK PRR ""V"" POR R 
T SE NRESTE MEDLE 

M" 

1610 SLOU 

1820 IP INKEYf"U" THEN GOTO URL 
”1835 

1830 GOTO URL "1820" 

1835 NEXT Z 
1840 CLS 

1045 PRINT - JEG HRR IKKE PUND 
ET PLERE" 

1850 PRUSE URL "200" 

1860 GOTO URL "100" 

2000 GOTO URL "800" 


URL "1375 
J 


POLDENDE ".J." NRUN/NR 


JEG HRR IKKE PUND 


* NSKES_ 

asl* 


INT AT URL "1 
DER UDSKRIPT 
STEMT RNTRL" 


r 7URL "0"." 


2840 IP iNKEYt.'R" RND Y.URL "12 
" THEN GOTO URL "3000" 

2845 IP INKEYt.'R" THEN GOTO URL 
" 2000 " 

2650 IP INKEYf"B" THEN GOTO URL 
2860" 

2861 GOTO URL "2630" 

2660 PRINT RT URL "10",URL "0";" 


2861 PRINT RT URL "10".URL "0 ;" 
UDSKRIPT PRR NUMMER (1-50) "; 

2863 INPUT 0 ^ 

2864 PRINT ;0,RT URL "11".URL "0 
","TIL NR. ", 

2666 INPUT S 
2868 PRINT S 

2860 IP Y.URL "12" THEN GOTO URL 
"3005" 

2870 GOTO URL "2902" 

2000 LET ©.URL "1" 

2901 LET S.URL 50" 

2902 PRST 

2900 POR U.Q TO S 

2010 LPRIfiT " HnjHsBT fl ffii A *= 


LPRINT U 
LPRINT Nt(U) 
LPRINT Rt(U) 
LPRINT BtiU) 
LPRINT TtlU) 
LPRINT Ct(U) 
LPRINT It(U) 
LPRINT Pt(U) 
LPRINT "- 


2030 NEXT U 
2035 PRINT i 


INT RT URL 10".URL 0" " 
NU PflERDIG MED RT SKRIUE 


JEG ER NU PRERDIG MC 
UD PRR PRINTER 

2036 PRUSE 100 
2040 GOTO URL "100 

3001 LET O.URL "1" 

3002 LET S.URL "50" 

3005 CLS 

3006 PRST 

3010 POR U*Q TO S 

3011 CLS 

3020 PRINT ".. 


3040 PRINT TRB URL "S' 
3060 PRINT TRB URL "5’ 
3000 PRINT TRB URL "5' 
3100 PRINT TRB URL "5 
3120 PRINT TRB URL "5' 
3135 PRINT TRB URL "5* 
3145 PRINT TRB URL "5' 
3155 PRINT TRB URL "5' 
3161 PRINT ". 


3164 SLOU 

3165 PRUSE URL "25" 

3166 IP INKEYt•"S" THEN PRUSE UR 
L "2000" 

3168 PRST 

3169 NEXT U 


PRUSE URL "190" 


3175 PRUSE URL "190" 

3160 PRST 

3100 GOTO URL "100 
3200 GOTO URL "900" 

3640^RtNT^R^UR? 0 "20" .URL "9"," 
NUMMER (1-50)" 

3645 INPUT C 

3646 PRINT RT URL "20".URL "10", 

3650 PRINT RT URL "4".URL "10",C 
3660 PRINT RT URL 6".URL "10",N 

S IC) 

670 PRINT RT URL "8",URL "10",R 
$ iC> 

3660 PRINT RT URL "10",URL "18". 

08(0 

3600 PRINT RT URL "12",URL "10". 
TltC) 

3700 PRINT RT URL "14",URL "10", 


3710 PRINT RT URL "16".URL "10"; 

3^20 * PRINT RT URL "18",URL "10"; 
Pt (C) 

3730 PRINT RT URL "20",URL 0"," 
SKRL JEG SLETTE DENNE PERSON J/N 

3740 IP iNKEYt.'J" THEN GOTO URL 
3780 

3750 IP iNKEYt-'N" THEN PRINT RT 

URL "20".URL 0";" JEG GRR 

R TIL MENUEN 

3751 IP iNKEYt.*" THEN GOTO URL 
"3740" 

3760 PRUSE URL 100" 

3761 GOTO URL ”100 

3760 LET Rt(C)«" 

3761 LET NtlC)." 


3782 LET Bt(C> 

3783 LET It(C). 

3784 LET Pt(C)»" 


3785 LET Ct(C)■" 

3786 LET TtiC)»" 

3787 PRINT RT URL "10",URL "0";" 
JEG GRRR NU TIL MOUEDMENUEN 

3788 PRUSE URL "100 
3700 GOTO URL "100" 

4000 CLS 

4010 PRINT RT URL "2".URL "10";" 


4020 PRINT RT URL "10",URL "0"," 
0NSKES INSTRUKTiuNERNE SKREUET 
PRR ^RERMEN/WINTER" 

4040 IP CODE INKEY 8*56 THEN GOTO 
URL "4108” 

4050 IP CODE INKEY t>53 THEN GOTO 
URL "4300” 

4060 GOTO URL 4020 

4110 PRINT RT URL "4",URL "0",SS 

4120 PRUSE URL "2000" 

4233 GOTO URL "100" _ 

43O0LPRINT " MH9 limit 

4310 LPRINT 
4320 LPRINT St 
4330 GOTO URL "100 
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in xr: :•:©©© *mb 

: >. 'as ur ••••• 

:» -OCC’t 17.33:MIN’ SPACE!t7>; 

:25'-OW T ; 17.32:PRIMT 

:?7 >t :«4.)V £** A0t<»-|- T*N |MH*CmP!<ASC(!NDI>-32i 
:3© fCR A*1 t« 15 

AC :* T.£N «JM:PR;nT KWtlA); 

l!0 •€** 0 

160 If <U**C t*N K£d:60 T 0 120 

:70 ON GOTO 500.1000,1500.16C*. 120.2200.3000.3500.*000.4500. WOO. WOO. 
95)0,9M0,200 

200 CLSiEtt 

500 ««••*. j<t. ..... 

SlO RE"**************** 

i? *; 

*3: 3C9J8 2000 'INPUT 
AC LOCflT: 19,32:PRINT -RflOIUS: * 

55C L3STE 21,32:INPUT ’R:’,» 

55! 90&JI 2100 ’SLET SCAN 

560 W. IWL, l) a I:Bfe IBPL,2> S V:M.(M..3>'{:M.(M.,4>*> 

57C 50SUI 2800 ' ROTATE 

575 CIACLE<NX,NY>,R-A*<N7/Z0WI.1:PAINT<NX.NY1,1 

580 GOTO 100 

1000 RE"***** LlfC ••*•• 

1010 ISMmhmmhhh* 

1020 LINN.JN*! 

!030 G0SU8 2000 • IN«JT 

10*0 LINCLIN, 1) , I:L1N(LIN,2).V:UN(UN.3I-Z 

’.050 GOSUB 2000 ’ INPUT 

1060 LINILIN,*)«I:LINILIN,5)*Y:LINILIN,6»*Z 

•070 OtlN:G0SU8 2700 ' ROTATE 

1075 LIICINX,NY)-INX2,NY2>,1 

’.080 GOTO 100 

1500 RE"***** OOT ***** 

1510 HWmmiimmhh 

1520 OOT-DOTM 

'.530 GOSUB 2000 • l*UT 

15*0 DOT(OOT,|)-I:OOT(DOT,2)*V:OOT(DOT,3)*Z 

1SV* GOSUB 2800 ’ROTATE 

1555 PSET(NX,NV»,1 

'•560 GOTO 100 

1600 f-iies 

1610 QMhhhhnhhhm 

1611 LOCATE 19,32:PRINT ’AKT*:’ 

1612 LOCATE 21,32:INPUT -Os«,T 

1613 GOSUB 2100 

1615 If T<2 N€N BEEP:GOTO 100 

1620 LI*H.IN*I :TUR»TUR-l 

1630 GOSUB 2000 ' INA/T 

16*0 LINILIN, 1)*I:LIN(LIN.2)*V:LIN(LIN,3l*Z 

1650 FOR M TO T 

1660 605u8 2000 

1670 LINILIN, *)«IsLIN(LIN,5)»YsLIN(LIN. 6)«Z 
1675 A*UN:G06lB 2700:Ll)M.IN*l 
1677 Lll£(NX,NY)-(NI2,NY2), 1 
1680 LINILIN, 1»»I:LIN(LIN,21«Y:LIN(LIN.3)-Z 
169) *XT B 

1720 iI»KIN-l:GOTO 100 

2000 RE"***** STCHOAAO INAU7 ***** 

2010 

2020 _0CA T E 19,32:PB!T ’X.Y.Zl* 

2030 LOCATE 21,32:I«VT ’I:*,I 
20*0 LCCA T £ 22,32:INPUT ’Y:’, Y 
2050 LOCATE 23,32:INAJT ’Z:\Z 
2"55 GOSUB 2100 
2060 RETURN 

?:on Rt"****« STflrtWO SLET ***** 

2110 9EF..m*m.HHH..»M..M 

r.>: : Cfl A* 19 TO 23 
L-25 .OCA IE A. 32 

>1» PAIN' SPCCEi(8); 

21*0 «IT A 
215C 0£T(Jfl* 

2200 W*hm ROTATE I«HJT 
2220 GOSIB 2000 ’INPUT 


2222 3*ACl i I:6AA0»‘»:GW0Z’Z 

2225 AAOl’fN #AO(ii:NAO*rf> AAO(V):AAOZ*fN AAOlZ) 

22» GOSUB 2100 ’SLP 
22*0 GOSuB 2500 ’AOTATE Aj. 

2250 GOTO 100 

2Stt *■«♦••• ROTATE ALL m" 

25:0 

2S20Ll*<-l'.9.-98>-llll.98l.0.8f 
2530 fOA Ail TO Ift 

25*0 l *8Al (A, 1) :V>BAL l A. 21: Z *Bft (A. 3* 

2530 SOS* 2800 

25S5 :!<CUHa.NYi,BAl(A,*>-BAL(A,*i#uiZ/ZOWi.| 

2554 POINT no,NY), ], | 

2560 *IT A 

2570 f« 0.8C6 TO LIN 

259) SO*® 2700 

2600 lI*I«,NY1-I«I2.NY2).| 

2EI0 KIT A 
2620 fOA 0-1 TO OOT 

26» I'OOTlA. 1» :Y«00T(A,2» :2*OOT(A,3i 
26*0 GOSUB 2800 
2850 PSEHNi,N*>,| 

2660 KIT A 
2670 AET-j* 

2700 RE" LINK OAOEN: 

2710 1‘ilNiO, !• :Y<IN(A,2>iZ a LlN(A,31 

2720 GOSUB 2800 

PX< NI2rtfl:»f»2*tt:"72M!7 

27*0 ln.lN(A,*l:Y*INCA,5»:Z<lN<A,6> 

2750 GOSUB 2800 
2760 *Ti<* 

280© <*"•••♦• AOTATE ***** 

2810 

2820 NZrfN "OH«Z,Y.AUDI):NY*N AOTYIZ.Y.AAOD ’I *SE 
289) Gl-fN A0TI(I.NZ.AP0Y):NZ<N AOTYII.NZ,NQOYi •* WSE 
28*0 NlrfN AOniSl.NY.AAOZlrNYrfN R0TYI6I.NY. ASDZl 'Z <*SE 
2850 W'NI-«*INZ'Z0W>)*!.2:NY*rt-«¥*<N2/70W> 

2860 

3000 Wm.h ERASE *•♦•• 

3)10 tf******•**•****••»* 

3020 If BA.*LlN*OOT>3 T»€N BE£P:GOTO 100 
303) LOCATE 19.32:PA!NT ’Ba'D:’ 

3>*0 LOCATE 21.32:PAINT ’:’;:A».I*UTI<1) 

X50 If A8-)V flN) A8<«*i* TUN Ai^A»(ASClAAJ-32l 

2060 GOSUB 2100 ’SLET 

»7) LOCATE 19,J2:PAINT •ANTft.:* 

9)80 .OCA»E 21,32:I«AVT -fl.-,* 

3)9) GCSUt 2100 

31 Of' I 1 *>€N M'BPL-N:If BALIO T»€N «.*0 

3110 If A*»’t* no LIIH.IIML-IF LIN<3 T»0 LlN-3 

3120 If A».*D* no OOT.OOT-N:If DOT (0 no DOT«0 

3iy BCSie 2500 

31*0 GOTO 100 

3500 ®MIM. no* ***** 

3510 ^X.MMM H WH .1 1 
3520 LOCATE I9.32:PA|NT *0-9»0* 

35X JtATE 21,32:l*UT *Z:*,Z 
3535 GOSl® 2100 

35*0 If Z<© CA Z19000 TO BE£P:GOT0 35» 

3SV Z00^9200-Z 

1560 GOSUB 2500 'SOTATE «U 

3570 GOTO 100 

*000 Bfm**** AXIS ***** 


*590 PAINT ’ROTATIW Z r’iGAAOZ 
*600 paint : oaint 

*610 PAINT -ZOtf :*;Z0W 

•620 LOCATE 23,1:!NWT ’PRESS WETUAia’.A* 

*630 GOTO 8000 
6000 «inhh eu 
6010 Hi**************** 

6020 A.N 

8000 AEJHmm CLEANUP ••••• 

SCO B("................... 

6020 as 

»X LHCI-120,1001-1119.-991,2,8 

80*0 fOA O-l TO 1S:L0CATE ,32:PAINT KW»1A):P€1T A 

**• GOSUB 2500 

8060 GOTO 100 

*«0C AT•>••••• SAVE ***** 

9)10 OD***************** 

.OCATE 19,32:PAINT ’NP»C:’ 

9030 LOCATE 2!,32:!W 
9>35 GOSUB 2! 00 

90*0 If *8C8“** OA INSTIdPC*.- ’KIO T»CN 100 
905C *P€*H.EfTA(«iC*»SPACE*(8).8> 

9)60 OPEN !#€*•-. AOT* fOA OUTPUT AS II 
9065 PAINT ll.BAL 
9)70 fOA Ail TO BOL 

*40 PAINT II,BfL(A,It,BALIA,2),BALIA,31 ,BAL(A,*1 
9090 *CIT A 
9*95 PAINT 81, DOT 
9100 FOA A-l TO OOT 

9110 PAINT II, DOT IA, I >, DOT (A,2). OOT (A, 3) 

9120 «IT A 
9125 PAINT II,LIN 
9130 Ft* AM TO LIN 

91*0 PAINT II,LINIA.II,LINIA,21,LIN<A,31,LINIA,*1,L1N<A,51,L. 

9150 *!T A 

9160 aOSE 81 

9170 0OTO 100 

950) REN***** LOAD ***** 

9510 

9520 LOCATE 19,32:PAINT ’!«*€:• 

9530 LOCATE 21,32:IIAVT •*,«•€• 

9532 W EAAOA GOTO 9900 
9535 60SIB 2100 

95*0 If *€*■’• OA USTAOPCI,* *100 T)€N 100 
9550 *PCi*LEfTtdfCI«SPACItl8),S) 

9560 OPEN *#€*•’. ROT* »0R INA/T AS II 
9565 1KAJT #1. B* 

9570 FOA Ail TO BAl 

958C» INPL" ll.BAL (A, I),|Al(A,2).BALIA.31,BAL (A,*) 

9590 «n A 
9595 INAVT 8I.OOT 
96^0 FOA Ail TO DOT 

9610 IiAfT II, DOT IA, 11, D0» I A, 2), DOT I A, 31 
9620 *IT A 
9625 INtUT l|,LIN 
9630 C 0R A.* TO LIN 

96*) INRJT I1.LIRIA,II,LIN(A,2),LINIA.3),LIN(Q.»),LINIP,5),L| 

9650 «CXT A 

9660 atJSE II 

9670 GOSUB 25O0:GDT0 100 

9900 BE£P:RESUf€ 100 

10000 SE»«**** DIN ***** 

10010 «EN********•*»**•« 

10020 SCHEN l,0.0:CaOR 0,1:KEY Off 

10030 DIN BA. 1100, *1. L IN 1100,61. DOT 1100,31, KQNI115) 

100*0 UIKK* 1-120,1001-1199.-991 

'.0050 DEf fN ROTI(A,B.TO)^*COS(RAD1-B*S1N(W) 

’.0060 DEf FN ROTY(A.B, RAO)^AtSlNIRAD)*B*QB<RAO) 

10070 DEf FN RA0<6RAD> ! 6RAD*ATN(1I'*5 

1008C 1 GC6 i *:LlN*3:ZOOAilOOO 

;009(' fOA Ai’. TO 15:9£AD <0N*IA1:NE1T A 

10092 **! TO 3:f(» B*1 TO 6:AEA0 LINIA,B):)CXT B,A 

:ukv :•?&-■$ 2500 

10110 GC13 nOOO 

.0120 DATA ‘BALL’.’Lie*,’DOT’, •F-LUCS*.’' *. ■ROTATE , l ‘ERASE L* 
10130 »T0 ’STATUS’. •aEANJP’,’«CM’.*GET- ) ’tUT’.’QUIT* 

10!*0 DATA -75.0,0,75.0.0,0. -75,0.0,75.0.0,0, -75,0,0.75 


*020 BES*BEG*-l*5 

*030 GOSLB 2500 ’ROTATE ALL 

*0*0 aro ioo 

*500 9E"****» STATUS ***** 

*51' ENMMMMHHMM. 

*520 as 

*5* PRINT ’3O-90TATIOI COPYRIWT 198510 BY PPC !C’:PRINT 

*532 PRINT ’BOIS :“;BOL 

*5*0 PRINT 1I« :’;L!*-3 

*550 PRINT -OOTS :’;DOT 

* 56 C PRINT:PRINT 

*570 PRINT -AOTOTIW i :’;6AWl 

<#> PRINT ’ROTATIW f :’;6AA0» 











Procentre9n i n9 


10 CL'S 
20 MODE 1 
30 INK 1,24,13 
40 GOSUB 2550 
50 SPEED INK 10,20 
60 LOCATE 12,10 
70 ENV 1,100.2.2 
00 ENT 1,100,-2,2 
90 SOUND 1,284,200.1.1,1 
100 PRINT"M A T E M A T I K" 

110 a® 1 500 

120 FOP Pause®1 TO a ! NEXT 
130 CLS 

140 GOSUB 2550 
150 LOCATE 12,10 
160 PRINT" af“ 

170 FOR Pause®1 TO a NEXT 
180 CLS 

190 GOSUB 2550 
200 LOCATE 12,10 
210 PRINT" Keld Jensen" 

220 FOR Pau.se=l TO a NEXT 
230 CLS 

240 GOSUB 2550 
250 LOCATE 12,10 
260 PRINT"Cop m r 19ht 1984" 

270 FOR Pause=l TO a•NEXT 
280 CLS-Last*®INKEY* 

290 MODE 2 
300 INK 1,24 
310 INK 0,0 
320 BORDER 0 
330 GOSUB 2550 
340 LOCATE 35,5 
350 PRINT"M E N U" 

360 PRINT 

370 PRINT" Area 1 udr e9nin9 

380 PRINT 
390 PRINT" At mi nd»l i9 u.dre9nm9 

400 PRINT 

410 PRINT" Cirke1udre9nin9 

420 PRINT 

430 PRINT" Procentre9nin9 

440 PRINT 

450 PRINT" Geometri 

460 GOSUB 2550 
470 IF INKEYC64>»0 THEN 530 
480 IF INKEYC 65 >»0 THEN 1040 
490 IF INKEYC 57 >=0 THEN 1550 
500 IF INKEYC 56 >«0 THEN 1630 
510 IF INKEYC49 )«0 THEN 2020 
520 GOTO 470 
530 CLSiLast*-INKEY* 

540 LOCATE 25,2 
550 PRINT"RRERLUDREGNING" 

560 PRINT 

570 PRINT “Trek ant.1" 

580 PRINT 

590 PRINT“Pa ra11eIo9r am-2" 

600 PRINT 

610 PRINT"Cirk*l.3" 

620 PRINT 

630 PRINT“TraPez.4" 

640 PRINT 

650 PRINT“Ti l base.5" 

660 IF INKEYC64>-0 THEN 720 
670 IF INKEYC 65)®0 THEN 800 
680 IF INKEYC57>-0 THEN 880 
690 IF INKEYC 56 )“0 THEN 950 
700 IF INKEYC 49 >=0 THEN 280 
710 GOTO 660 
720 CLS 1 tast*®INKEY* 

730 INPUT"lndtast Miden ")t 

740 INPUT"indtast 9rundlinien'";b 
750 c=0.5*a*b 

760 PRINTiPRINT"Area let er")c;"kv 
770 PRINT'PRINT"Truk..1" 

780 IF INKEYC 64 >®0 THEN 530 
790 GOTO 780 
800 CLS'tast*®INKEY* 

810 INPIJT"indtast 9rundlinlen- "i9 
820 INPUT" indtast h4Jden 
830 c=9*h 

840 PRINT ■ PRINT”Rrealet er";c;"kv 
850 PRINT■PRINT"tr»k..1“ 

860 IF INKEYC 64 1®0 THEN 530 
870 GOTO 860 
880 CLS 1 tast*®INKEY* 

890 INPUT"indtast radius";r 
900 c=PI*r*r 

910 PRINT ! PRINT"Area let er“;c)"kv 
920 PRINT PRINT"tr»k..l" 

930 IF INKEY< 64 >=0 THEN 530 
940 GOTO 930 
950 CLSitest*®INKEY* 

960 INPUT"indtast harden ,”;h 

970 INPUT"indtast side 1 s 

980 INPUT"indtast side 2 -"it 

990 c®0.5*h*Cs+t > 

1000 PR I NT "Area let er ” id "kvadrat 
1010 PRINT PRINT"tr'ak.. 1" 

1020 IF INKEY<64>=8 THEN 538 
1030 GOTO 1020 
1040 CLS•tast*®INKEY* 

1050 LOCATE 25,2 




1060 PRINT"ALMINDELIG REGNING" 

1070 PRINT 

1088 PRINT"9an9e.1" 

1090 PRINT 

1100 PRINT"dividere.2" 

1110 PRINT 

1120 PRINT“Plus.3“ 

1130 PRINT 

1140 PRINT“minus.4" 

1158 PRINT 

1160 PRINT"ti lba9e.5" 

1170 IF INKEYC 64 >®0 THEN 1230 
1180 IF INKEYC65)®0 THEN 1310 
1190 IF INKEY< 57)®0 THEN 1390 
1200 IF INKEYC 56)®0 THEN 1470 
1210 IF INKEYC49 >*0 THEN 280 
1220 GOTO 1170 
1230 CLS tast*®INKEY* 

1240 INPUT"indtast tal.."i 

1250 INPUT “indtast tal. 

1260 d=c*b 

1270 PRINTVesu Itatet bl iver" ;d 
1280 PRINT"Tr»k..1" 

1290 IF INKEY< 64 >=0 THEN 280 

1300 GOTO 1290 

1310 CLS tast*®INKEY* 

1320 INPUT"indtast tal..-">a 
1330 INPUT"indtast tal.. ";b 
1340 c=a/b 

1350 PRINTVesu Itatet er" iC 
1360 PRINT"Truk..l" 

1370 IF INKEY<64)®0 THEN 280 
1380 GOTO 1370 
1390 CLS tastS®INKEYt 
1400 INPUT"indtast tal.. "ia 
1410 INPUT"indtast tal.. "b 
1428 d=a*b 

1430 PRINT'Vesu Itatet er"ic 
1440 PRINT“Truk.. 1" 

1450 IF INKEYC 64 >=0 THEN 280 

1460 GOTO 1450 

1470 CLS■tast•=INKEY* 

1480 INPUT"indtast tal.. ";a 
1490 INPUT"indtast tal..‘’lb 
1500 c«a-b 

1510 PRINT'Vesu Itatet er ". r 
1520 PRINT"Trvik.. 1" 

1530 IF INKEYC64)*0 THEN 280 

1540 GOTO 1530 

1558 CLS ! tast*®INKEY* 

1560 INPUT"indtast radius.. ”.a 
1570 b=2»PI*a 

1580 PPINT"omkredsen er "; b."cm" 

PBIMT PRINT-Hvls area let Jkrt u<Jr*9n»« 14 »raa Iu*-»9nin0' ■ 
PBIMT PB|MT-Tr»k..I” 

IF IMKEY'«4>.0 THEN 
GOTO ISI0 
CLS'taste® INKEYS 
PBIMT 

BBINT" Slial arocantaa tl UaBBas at baiab. trrk 

PBIMT 

POINT" Sir*I Proc#nt#*» fPltrallN ft b#IPb . trylr 


■ Dette Amstrad piogiam er 
lavet bdde med henblik pd 
de matematikopgaver, man 
kan blive udsat (or i skolen, 
men ogsd som eksempel pd 
de muligheder, der ligger i 
Amstrad's BASIC. 
Programmet kan udregne 
arealer, procent og alminde- 
lig regning. Desuden kan det 
ogsd vise lidt trekants og cir- 
kelgeometri.D 

Keld Jensen 


Sfc*I •♦.lining i ProC0 


kvadratmeter" 


kvadrat cm” 


IMT- TilbaBa. trek 

1720 GOSUB 2550 

1730 IF INKEYC 64 >=0 THEN 1780 

1740 IF INKEYC 65 >®0 THEN I860 

1750 IF INKEYC57'=0 THEN 1940 

1760 IF INKEYC 56 >=0 THEN 280 

1770 GOTO 1730 

1780 CLS 1 tast*®INKEY* 

1790 INPUT"indtast be14b- ";a 

1800 INPUT"indtast Procent..■";b 
1310 c=a*b/100+a 

1320 PRINT PRINT"Det samlede be14b bliver" 
1830 PRINT PPINT"Tmk.. 1" 

1340 IF INKEYC64 )=0 THEN 1630 
1850 GOTO 1840 
1360 CLS tast*«INKEY* 

1378 INPUT"indtast be14b....'";a 
1388 INPUT"indtast Procent..":b 
1890 c»a-a*br 100 

1900 PRINT PRINT"Det samlede bet4b bliver" 
1910 PRINT'PRINT"Triik.. 1" 

1920 IF INKEYC64>=0 THEN 1630 

1930 GOTO 1920 

1940 CLS : tast*®INKEY* 

1950 INPUT"indtast bel4b-' ",a 

I960 INPUT"indtast bel4b_= ";b 

1970 c=bra 

1980 PR I NT " St i 9n i r,9en bliver Pd'';c;"X“ 

1990 PRINT PRINT"Trvk..l“ 

2000 IF INKEYC641=0 THEN 1630 



GOTO 2000 

CLS'tast*®INKEY* 

LOCATE 29,3 
PRINT"T R E K A N T" 

PLOT 200,208 
DRAW 200,200 
DRAW 100,108 
DRAW 100,300 
DRAW 200,200 
PLOT 100,200 
DRAW 200,200 
LOCATE 18.13 
PRINT"h" 

LOCATE 60,5 
PR I NT " b®b4 .i den " 

LOCATE 12,12 
PRINT"9“ 

LOCATE 60.7 
PRINT"9=9rundlinien" 
LOCATE 60.9 
PRINT‘‘a=areal" 

LOCATE 60,12 
PRINT"a ® 0.5*b*9" 

LOCATE 60.30 
PPINT''Truk..1" 

IF INKEYC64)®0 THEN 2280! 

GOTO 2268 

CLS'tast*®INKEY* 

LOCATE 29,3 
PRINT"C I P K E L“ 

FOP a=l TO 360 

ORIGIN 200,200 

PLOT 90*COSC a),90*3INC a ) 

NEXT 

PLOT 64 
DRAW 90.5 
LOCATE 29,12 
PRINT'V" 

LOCATE 60.12 
PRINT"r®radius" 

LOCATE 60.14 
PRINT“a=areal" 

LOCATE 60.16 
PRINT" o=omk reds" 

LOCATE 60.20 
PRINT"a = Pi*r*r“ 

LOCATE 60,22 
PRINT'V = 2*Pi*r" 

LOCATE 60.35 
PPINT"Tr*k.. I" 

IF INKEYC64>=0 THEN 280 

GOTO 2510 

GOTO 2530 

GOTO 2000 

PLOT 10.10 

DRAW 10.390 

DRAW 630.390 

DRAW 630,10 

DRAW 10,10 

RETURN 
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Tape-check 


Oplagt til alle spilhacker (en 
der cendrer i sine spil efter 
smag og behag). 
Programmel giver oplysnin- 
ger om f.eks. startadresse i 
programmerne. lcengde at 
programmet. antal variabler 
m.m. Alle tider sprogram ndr 
du vil have uendelige liv. og 
derefter vise dine kammera- 
ter rekorden.D 

Jacob Wittrock 





10 BORDER l: PAPER l: INK 7: CLEAR 38399: POKE 23561,10: POKE 23562,1 
20 GO SUB 300 

30 PRINT " > HEADER UNVEILING<”” "DATA:- 

40 PLOT 0,150: DRAW 255,0 

50 FOR n=39000 TO 39030: POKE n,0: NEXT r, 

60 GO SUB 400 

70 IF PEEK 39000 0 0 THEN RUN 30 
80 LET ty=PEEK 39001 

90 PRINT ’"PROGRAM: NUM.ARRAY: CHAR.ARRAY:BYTES: ”(ty*ll+l TO ty*ll-t-ll), 

100 FOR n=39002 TO 39011: PRINT CHR* (PEEK n AND (PEEK n>31)>:: NEXT n: PRINT 
110 LET len=PEEK 39012+PEEK 39013*256 
120 LET sI=PEEK 39014+PEEK 39015*256 
130 LET bI=PEEK 39016+PEEK 39017*256 
140 IF ty=0 THEN PRINT ’"BASIC LENGTH:",bl 
150 IF ty=0 THEN PRINT ’"VAR. LENGTHIen-bl 
160 PRINT ’"LENGTH:”,len 

170 IF’ty=0 AND si 032731 THEN PRINT ’"START LINE:”,si 
180 IF ty=3 THEN PRINT ’"START ADDRESS:",si 
190 INPUT "Press ENTER!“i LINE t$ 

200 RUN 30 

300 FOR n=USR "a" TO USR "d"+5: READ a: POKE n,a: NEXT r,: RETURN 
310 DATA 17,20,0,221,33,SS,152,62,0,55,205,87,5,201,0,0,17,0,0,221,33,87,152,62 
, 255, 55, 205,87,5,201 
400 RANDOMIZE USR USR "a": RETURN 
3999 SAVE "HEADER" LINE 10 



COMMO 

DOM 

64 



Er du trcet at. at alle blot be- 
nytter et RESET-stik lor at kopi- 
ere dine bedste tankeeksperi- 
menter. - sd er her hjcelpen. 
der siger spar to til det du for 
harset. 


Det lille program sorger for. at 
RUN/STOP RESTORE og reset- 
stik er ude at funktion. Virkelig 
original sikring, der benytter, 
at computeren tester hvor den 


skal gd hen. hvis der tastes 
(RUNSTOP/RESTORE) eller bru- 
get et resetstik. 

Hvis du onsker at sikre alle di¬ 
ne programmer sddan, kan 
du blot fjerne linie 6 (der jo 
sletter programmet), og sd 
bruge de andre linier i begyn- 
delsen af alle dine program¬ 
mer. □ 

Christian Wermuth 
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Filspion 


Med disse smd spionpro- 
grammer kan du lcese ind- 
holdet af alle filer savet pd dis- 
ketten - uden brug al del pro¬ 
gram. der i terste instans op- 
rettede (ilen. 

Program 1 kan indlcese data 
fra (ilen ' 'PRINTER''. FUen er en 
SEQ version, som S'et stdr for. R 
betyder READ, og indholdet 
printes ud pd printeren. 

Du kan selv indlcegge fil- 
navn, filtype og vcelge mel- 
lem, om du vil skrive(W), eller 
du vil lcese(R). 

Program 2 virker fuldstcendigt 
som program 1. Dog sker ud- 
printningen til skcermen. 

Du kan vcelge tolgende tilty- 
per: 

S tor SEQ til 
P for PRG til 
U for USR til 

Arne Jargensen 







COMMO 
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Program 1. 


DATA DISK/802 

120 OPEN 2,8,3,"PR INTER,S,R" 
130 OPEN 128,4,7 
140 GET#2,A* 

150 S=ST 

160 PR INT#128,A*; 

170 IF S=0 THEN 140 
180 CLOSE 128 
180 CLOSE 2 
200 END 


Program 2 



PROGRAM: DATA DISK/SKAERM 

120 OPEN 2,8,3,"P*,P,R“ 
130 OPEN 1,3,1 
140 GETtt2,A# 

150 S=ST 

160 PR INTH 1,A*J 

170 IF S=0 THEN 140 

180 CLOSE 1 

190 CLOSE 2 

200 END 


Iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiimiiiiiiiiimiiimiiiiiiiiimiiii#0^ 



REM 

REM 

REM 


RUTIRESET 
BV CHR. U 


■4 

EOR I = 

O TO 

XT 

MEM 



20 

DRTfl 

1 o 

1 2 

30 

DRTR 

48 .. 

O 

-TO 

DRTR 

1 -4 . 

1 2 

50 

DRTR 

203 

-• 2 

•so 

TiFHTR 


1 -4 


REfiri X - POKE 32768+ I > X = M 


9*5 -• 1 S»-4 • 265 -• 



sss 
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SHAPESYS 


apple 


Dette program, udviklet p4 
en Apple med 48K, printer 
og diskettestation, bruges, 
n&r der skal laves shapes. kontrollere, om den faerdige 

shape virker. 

BemaBrknmg: Programmet 
fylder a& meget, at det ligger 
i HGRL-lageret. Derfor be¬ 
hoves der mindst 32K RAM 
for at programmet kan kore. 
I lin. 2080 bliver shapen po- 
ket ind. 

I lin. 2793 viser programmet, 
hvor meget det selv fylder. 

I lin. 3006 indpoke's startad- 
ressen. 

I lin. 3007 poke's HIHEM. 

I lin. 3030 poke's antal sha¬ 
pes. 

I lin. 3060 og 3090 poke's ad- 
ressen til de enkelte shapes. 


Indbygget i programmet er 
ogs4 en shape-afprovnings- 


tegnes lynhurtigt, fordi den 
er skrevet i maskinkode. 

N4r programmet er tastet 
ind, laves shapen ved at vasl- 
ge, hvor i hukommelsen den 
skal ligge. (HIHEM: og star¬ 
ts dresse bliver sat i linie 
3006-3007). DemaBst teng- 
nes shapen ved hjsslp af ta- 
steme I, J, K, M og D, S, X, E, 
s4 den bliver poket ind i hu¬ 
kommelsen. N4r du er faer- 
dig, viser programmet dig 
start- og slutadresse og for- 
skellen i hexadecimal, s4 
den kan gemmes p4 b4nd/ 
diskette. 


730 VTAB IAA)i MTAB IA) 

760 QCI R» 

770 IF !«• - -I- THEN 380 
780 IF B* - THEN HOME i VTAB 

(AA>i MTAB IA) 

790 IF B* - -J- THEN 590 
700 IF B* - “A" THEN END 
310 IE H* - -K- THEN 770 
*.20 IF 81 * -M- THEN 940 
330 IF B* - -D- THEN 1260 
3*0 IF B* - -8- THEM MOO 
330 IF B4 - -X- THEN 1380 
360 IF B* - -E“ THEN J420 
363 IF B* - -V AND 0 < lOOOO TKN 
70 

370 GOTO 260 

380 REM PLOT-OP 

390 PRINT -X-iAA - AA - | 

400 C - C ♦ I 

410 ON C GOTO 430,490,530 
420 IF AA - 0 THEN LET AA - 23 
430 VTAB IAA>i MTAB (A> 

440 GOTO 260 

450 VTAB (D>i MTAB 16) 

460 SA4 - “IOO- 
470 PRINT “10©" 

400 GOTO 420 

490 VTAB <D>l MTAB (3> 

300 SB* - -lOO- 

510 PRINT -100- 

320 GOTO 420 

330 VTAB <D>• MTAB <I) 

340 SC* - -OO- 

530 PRINT -OO- 

360 GOSUB 1740 

370 C - 0 

580 GOTO 400 

390 REM PLOT-VENSTRE 

600 PRINT -X-iA - A - I 

610 C • C ♦ 1 

620 ON C GOTO 660,680,700 
630 IF A - O THEN A - 39 
640 VTAB <AA)i MTAB (A) 

650 GOTO 260 

660 VTAB <D>I MTAB (6) 

670 SA* - -111-1 PRINT “111“l GOTO 
630 

680 VTAB ID)l MTAB 13) 

690 SB* ■ -111-1 PRINT “ill-| GOTO 
630 

700 VTAB (D>i MTAB <1> 

710 SC* - -OO-i PRINT -OO- 
720 GOSUB 1740 
730 C - O 

740 IF A - O THEN A - 39 
750 VTAB (AA)i MTAB IA) 

760 GOTO 610 
770 REM PLOT-MOJRE 
780 PRINT " X " i A - A ♦ 1 
790 C - C ♦ 1 

800 ON C GOTO 830,870,890 
010 IF A < 40 THEN 830 
820 A - liAA ■= AA 
830 VTAB IAA)i MTAB CA) 

840 GOTO 260 

050 VTAB ID)« MTAB (6) 

060 SA* - -101-: PRINT “101-| GOTO 
810 

070 VTAB ID)i HTAB <3) 

880 SB* - -101-1 PRINT "lOl - ! GOTO 
810 

890 VTAB (QM.HIAB «D 


900 SC* - -OO-i PRINT "00" 

910 GOSUB 1740 

920 C - 0 

930 GOTO 790 

940 REM PLOT-NED 

930 PRINT -X-iAG AA ♦ 1 

960 C - C • 1 

970 ON C GOTO 1010,1030.1030 
980 IF AA . 24 THEN LET AA . 1 
990 VTAB IAA>| MTAB IA) 

IOOO GOTO 260 

IOIO VTAB ID)I HTAB (6) 

1020 SA* - -110-1 PRINT -110-1 GOTO 
90<> 

1030 VTAB ID)I MTAB 13) 

1040 SB* - -110-1 PRINT -110-1 GOTO 
98*) 

1030 VTAB ID)I MTAB <!> 

1060 SC* - -OO-l PRINT -00- 

1070 GOSUB 1740 

1080 C - O 

1090 GOTO 960 

1100 REM VEN8TRE-N0 PLOT 

1110 A - A - I 

1120 C - C ♦ 1 

1130 ON C GOTO 1170.1190.1210 
1140 IF A • O THEN A - 39 
1130 VTAB (AA)i HTAB IA) 

1160 GOTO 260 

1170 VTAB ID)I MTAB 16) 

1180 SA* - -Oll-l PRINT -OII-I GOTO 
1140 

1190 VTAB ID)■ MTAB 13) 

1200 SB* » -OII-I PRINT -Oll-l GOTO 
1140 

1210 VTAB ID)i MTAB (1) 

1220 SC* ■ -ll-l PRINT ”11- 

1230 GOSUB 1740 

1240 C - O 

1230 GOTO ^140 

1260 REM MOJRE-NO PLOT 

1270 A - A * 1 

1280 C - C ♦ I 

1290 ON C GOTO 1330.1330,1370 
1300 IF A - 40 THEN A - 1 
1310 VTAB IAA)i MTAB IA) 

1320 GOTO 260 

1330 VTAB ID)i HTAB 16) 

1340 SA* - -OOl-i PRINT "OOl-I GOTO 
1300 

1350 VTAB ID)i MTAB 13) 

1360 SB* • -OOl-i PRINT "OOl-i GOTO 
1300 

1370 VTAB ID) I MTAB ID 

1380 SC* • -Ol-i PRINT -01- 

1390 GOSUB 1740 

1400 C - O 

1410 GOTO 1300 

1420 REM OP-NO PLOT 

1430 AA - AA - 1 

1440 C - C ♦ 1 

1430 ON C GOTO 1490,1310,1330 
1460 IF AA - O THEN AA - 23 
1470 VTAB (AA)i MTAB IA) 

1480 GOTO 260 

1490 VTAB (D)i MTAB 16) 

1500 SA* • -OOO-s PRINT -000‘i GOTO 
1460 

1310 VTAB ID)• HTAB 13) 

1320 SB* » -000-1 PRINT -000"i GOTO 
1460 

1330 VTAB ID) I HTAB (11 


1340 SC* - -OO-l PRINT "OO" 

1330 GOSUB 1740 
1360 C - 0 
1370 GOTO 1440 
1580 REM NED-NO PLOT 
1590 AA - AA * 1 
1600 C - C • 1 

1610 ON C GOTO 1650,1670,1690 
1620 IF AA • 24 THEN AA 1 
1630 VTAB IAA)i HTAB IA) 

1640 GOTO 260 

1650 VTAB ID)I MTAB 16) 

1660 3A* - -010-1 PRINT "O!0"i GOTO 
1620 

1670 VTAB ID)I MTAB <3> 

1600 SB* - -010-1 PRINT “010“i GOTO 
1620 

1690 VTAB ID)l MTAB (1) 

1700 SC* • -10-1 PRINT "10" 

1710 GOSUB 1740 

1720 C • 0 

1730 GOTO 1620 

1733 REM SUBRUTINE 

1740 SO* - 8C* ♦ SB* * SA* 

1730 SE* - LEFT* (SD*.4) 

1760 E ■ Ii6 • 8 * I 

1770 IF SE* - -0000- T)EN M* - - 


SHAPE-SYSTEM 


160 INPUT Ai ON A GOTO 2740,180. 

2280.4000,3000,6000 

170 GOTO 70 

172 REM lllllllllllllllllllllll 

173 REM a a 

180 REM a SMAPEFREMSTILLING a 

190 REM a * 

193 REM.aaaaaaaaaaaaaaaaa 

200 HOME ID - 1 

203 IF 0 < 11000 THEN PRINT - 

SMAPEN BLIVER IKFE POKET IND 
-l PRINT 

210 PRINT - INDTAST STARTKOORDI 
NATER X,Y-| 

220 INPUT A,AA 

221 HOME 

222 VTAB I4)i PRINT - IE) OP 

UDEN PLOTNING" 

223 PRINT “ IS) VEN. UDEN PLOT 
NING" 

224 PRINT - ID) MOJ. UDEN PLOT 
NING" 

225 PRINT “ IX) NED UDEN PLOT 

NING"« PRINT 

226 PRINT “ II) OP MED PLOT 

NING" 

227 PRINT “ (J) VEN. MED PLOT 

NING" 

228 PRINT - IK) MOJ. MED PLOT 

NING" 

229 PRINT “ IM) NED MED PLOT 

NING"i PRINT 

230 IF O < lOOOO THEN PRINT i PRINT 

- (Y) TILBAGE TIL MENY" 

237 PRINT i INPUT "ER DER PRINTE 
R TILSLUTTET IJ/N) ?-|FG* 

240 HOME 


IF SE* • -0001" THEN W* 


IF SE* - "OOIO" THEN M* 


’0011" THEN W* 


IF SE* - -OlOO" THEN W* 


IF SE* - -0101- THEN W* 


0110- THEN M* 


IOOO" THEN M* 


lOOl" THEN M* 


1010" THEN M* 


1100- THEN M* 


1111" THEN M* 


1930 IF BT - 1 THEN RETURN 
1940 IF E - 2 THEN GOTO 1970 
1950 V* - M*iE ■ 2 
1960 SE* - RIGHT* <SD*,4)i GOTO 
1770 

1970 FOR J - 1 TO 0 

1900 K*(J) - MID* ISD*,J,1>i NE> 


1- THEN L 


2010 IF K*13) 
32 


1- THEN L - L ♦ 
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2360 IF Cl < > - - THEN 2640 

23*5 NOS2 

2370 FOR F - O TO 64 STEP 4 

2350 SCALE- Hi 'COLOR- 7 

2540 ROT- Fi ORAM A AT 140,*0 

2600 FOR FO - I TO 100. NEXT FO 

2610 HCOLOR- O 

2620 DRAM A AT 140.00 

2630 NEXT F 

2640 TEXT 

2641 VTAB «21>I PRINT "FOR 3DIME 
NSIONERTAST MELLEMRUM 

"I OCT C4 

2630 IF C* < > “ - TICN 2700 


3240 PRINT . PRINT . PRINT "F0R9 
KEL • “I 

3230 PRINT “I HEXADECIMAL ~b 

M*(4> |BH*<3>" "BH* <2> | BH* i 1 > 


2440 SC* - B!*<!6> ♦ BI*<I5> ♦ BI 

• * 14) • BI•<13) 

2430 GOSUB 1770 
2460 BM*(4 > - M* 

2470 BT - O 

2473 IF SM - I THEN RETURN 
2400 PRINT i PRINT "ADDRESSER I 
HEXADECIMAL. "|BH*(4>.BH*(3> 
I * "iBM* <2>iBM*11) 

2483 IF SM - I THEN RETURN 
2440 SD* - BI* <16) ♦ PI•(13) • BI 

• (14) « BI* <13) • BI*(12) ♦ 
BI*(11> • BI*(10) • BI*(4) 

3000 BT - I. GOSUB 1470 

3002 M <1) - L 

3003 SD* - BI* (0) • BI*(7) ♦ BI*< 
6) ♦ BI*(3) • BI*(4) • 81•< 3 
> • BI*<2> • BI*(1) 

3004 OOSUB 1470 
3003 M<2) - LiBT - O 

3006 POKE 232,M(2)i POKE 233,M<1 


THEN L * L 


THEN L * L ♦ 


3235 C • O 

3260 SM - 0.0 - 4000. OET C*. GOTO 


2060 IF K*(0) 


THEN L - L ♦ 


4000 REM III.IIIIIIIIIIDIIMII 

4001 REM S I 

4002 REM • DEC-HEX HEX-DEC • 

4003 REM • I 

4003 REM 

4010 HOME 

4020 INPUT "INDTA3T 1ALLET 1 HEX 
ADCCIMAl -|Z* 

4030 Z » LEN </•> 

4033 IF I : 10 THEN 4000 

4040 FOR F • I TO Z 

4045 XC(F) - VAL < HID* (Z*. .1) 


2070 IF BT - 1 THEN RETURN 

2C75 IF 0 < 11000 THEN 2100 

2076 IF O * I > 30340 THEN 2100 

2080 POKE 0 * I,L 

2040 I • I ♦ I 

2100 IF L - O THEN 3060 

2110 KL <D> - L 

2120 T*(D> • V* ♦ U* 

2130 VTAB (D>. MTAB (4) 

2140 PRINT “-“V* . W* 

2150 VTAB ID ♦ 1). HTAB <!)■ PRINT 


2670 DRAM A AT 140,00 
2600 SCALE- F - Li HCOLOR- Oi DRAM 
A AT 140,00. NEXT 
2640 SCALE- F. DRAM A AT 140,00. 

SCALE- B 
2645 OCT C* 

2700 TEXT 

2701 VTAB (21). PRINT "FOR NY SM 
APE TAST MELLEMRUM 

“I OET C* 

2710 IF C* < > “ - THEN 2730 

2720 HOME . GOTO 2200 

2730 TEXT . GOTO 70 

2740 REM MIIIIIIIMMIIIIIIIII 

2750 REM • • 

2760 REM • SHAPEAODRESERINO • 

2770 REM • • 

2700 REM •••••••••••••••••••••• 

2 7 40 MCME . PRINT - SHAPE A 

DDRESSERINO” 

2743 PRINT . PRINT “PROGRAMMET F 
YLDER ‘ PEEK (103) ♦ PEEK ( 

106) • 236” BYTES." 

2000 PRINT . PRINT . INPUT " IN 
DTAST STARTADDRESSE "|0 
2801 IF 0 < HOOO THEN VTAB (22 
>. PRINT -SMAPEN LIGGER I PR 
OORAMMET-i GOTO 2000 
2002 IF O < 16384 TVCN PRINT "S 
HAPEN LIGGER I HGR LAGERET“ 

2803 IF O 38340 THEN PRINT “S 
HAPEN LIGGER UDENFOR MUKOfWE 
LSEN-i GOTO 2800 

2004 IF 0 < 24376 AND 0 > 16304 T)«N 
PRINT -SMAPEN LIG6ER I HQR2 
LAGCRET- 
2805 HL - 0 

2810 FOR BF - 13 TO O STEP - 1 
2820 BI*(BF * 1) - -O" 

2830 IF HL - 2 - BF - >0 THEN 

BI*(BF ♦ 1) - -I-iHL • HL - 
2 - BF 

2840 NEXT BF 

2830 SE* - BI*(4) ♦ BI*<3) ♦ BI*( 

2)’♦ BI*(1) 

2860 BT - 1. GOSUB 1770 
2870 BM*(1) - W* 

2800 SE* - BI*(8) * BI•(7) * Bl*( 

6) ♦ BI*(3) 

2840 GOSUB 1770 
2400 BH*(2) - M* 

2410 SE* ■* BI*(12> ♦ 010(11) ♦ BI 
*(10) * BI*(4) 

2420 GOSUB 1770 
2430 BH*(3) - M* 


4030 IF MID* (Z*,F,1) - "A" THEN 
XC(F) - 10 

4060 IF MID* (Z*.F,I> - "8" 1MFN 
XC(F) • 11 

4070 IF MID* (Z*.F,I) - "C” THEN 
XC<F> - 12 

4000 IF MID* (Z*,F,1> - "D“ THEN 
XC(F) • 13 

4040 IF MID* (Z*,F,1> - ”E" THEN 
XC(F) - 14 

4100 IF MID* (Z*,F,1) • “F" THEN 
XC (F> - 13 

4104 NEXT F 

4105 CV - O 

4110 FOR F - LEN (Z*> TO 1 STEP 


2160 IK FG* - "N“ THEN 2260 

2170 IF D - 0 THEN 2140 

2180 D - D ♦ 1. RETURN 

2140 D - 0. HTAB (1). VTAB (1) 

2200 PR* 1 

2210 FOR F - 1 TO 0 

2220 PRINT " -T*(F>| 

2230 PRINT " "KL(F)| 

2240 NEXT F. PRINT . PR* O 
2250 GOTO 2100 
2260 IF D - 8 THEN D - O 
2270 GOTO 2100 

2280 REM ..in 

2283 REM • 

2240 REM • SHAPtAFPROVNING 
2300 REM • 

2320 REM aaaaaaaaaaaaaaaaaaaa* 

2330 HOME 

2340 PRINT . INPUT “SMAPENS NR. 


3010 PRINT . PRINT . INPUT " IN 
DTAST ANTAL SHAPES. "|P 

3012 IF P < 1 THEN PRINT “FOR L 
ILLE ANTAL. MINDST 1". GOTO 
3010 

3013 IF P > 233 THEN PRINT “FOR 
STORT ANTAL. MOJST 233". GOTO 

3010 

3020 I -P* 2* 2.IP -2 

3025 IB(1) — INT (I / 236) 

3026 !B(2) - INT ((I / 236 - INT 
(1 / 256)> • 256) 

3030 POKE 0,P. POKE 0 ♦ 1,0 
3040 POKE 0 ♦ 2, IB(2> i POKE O ♦ 

3,IB(1) 

3030 GOTO 180 

3060 IF O < lOOOO OR O * 1 >383 
40 THEN C - 0. GOTO 172 

3061 IB(1) - INT (1 / 236) 

3063 IF IP - P . | THEN 3160 
3070 IB(2) - INT (<I / 236 - INT 

(I / 236)) t 236) 

3000 IV - IP • 2 

3040 POKE O ♦ IV,10(2). POKE O ♦ 

I • IV, IBM > 

3113 IP - IP • 1 
3120 HOME 

3130 PRINT " SHAPE NR."IP - 1 
3140 PRINT , PRINT , INPUT - IN 
DTAST STARTKOORDINATER X,Y"| 


4120 CV - CV ♦ 16 ' (F - 1) • XC( 
LEN (Z*) - F ♦ 1) 

4130 NEXT F 

4140 PRINT . PRINT " TALLET I D 
EC I MAI “CV 

4143 VTAB (20)l PRINT "TAST MELL 
EMRUM FOR NYT TAL “I 
4150 GET C*. IF C* ■ ' - THEN 40 

00 

4160 GOTO 70 

3000 REM ••*•••••••••*••••«•••• 

3001 REM a * 

3002 REM a DEC-HEX / HEX-DEC a 

3003 REM a a 

5005 REM aaaaaaaaaa.aaaaaa 

3010 HOME . INPUT "TALLET I DECI 

MALTAL “|HL 

5020 SM - 1. GOSUB 2010 
3030 PRINT i PRINT "I HEXADECIMA 
L "BH*(4)|BH*(3)" "BM*(2))BM 
• (1) 

3040 SM - 0 

3045 VTAB (20>. PRINT “TAST MELL 
EMRUM FOR NYT TAL “| 

3046 GET C*l IF C* - " “ THEN 30 


2330 PRINT . INPUT "STORRELSE ?" 
IB 

2370 VTAB (21). PRINT “VARIABEL 

STORELSE TAST MELLEMRUM". GET 

C* 

2300 IF C* < > " " THEN 2430 

2385 HGR2 . HCOLOR- 3 
2340 ROT- Oi SCALE- B 
2400 DRAW A AT 140,80 
2410 GET C* 

2420 IF C* < > " " THEN 2450 

2430 HCOLOR- 0 

2440 DRAW A AT 140,80 

2450 TEXT 

2451 VTAB (21 >. F*RINT "FOR BEVAE 
GELSE TAST MELLEMRUM" 

2460 GET C* 

2470 IF C* < > " " THEN 2550 

2475 HGR2 

2480 FOR F - 1 TO 100 

2440 HCOLOR- 7 

2500 DRAW A AT 50 ♦ F,80 

2510 FOR FO - 1 TO 20. NEXT FO 

2320 HCOLOR- O 

2530 DRAW A AT 50 ♦ F,80 

2540 NEXT 

2550 TEXT 

2551 VTAB (21). PRINT "FOR ROTAT 
ION TAST MELLEMRUM 

-I G£X C* 


3210 PRINT . PRINT . PRINT "8LUT 
ADDRESSE "O ♦ I 

3220 PRINT "I HEXADECIMAL "B 

H*(4>|BH*(3>“ "BM*(2)j BH*(1) 
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I dette spU til Spectrum skat du 
samle cebler pb en osteagtig 
bane. Samtidig skat du und- 
gb de blodtcrstige uhyrer. 
som f 0 lger efter dig konstant. 
Nbr du har ryddet en bane 
stiger svcerhedsgraden. Kom- 
mer du gennem 4 baner, fbr 
du et ekstra liv, og-svcer¬ 
hedsgraden bliver igen den 
nemmeste. 

Du styrer med piletasterne.D 
Seren Bai Nielsen 


SPEC¬ 

TRUM 


In p»*:» «• 2 p r r. r * * ^ 5® I 
l|| v yy y y u | 


10 REM APPLEHUNT 
20 REM OF 

30 REM SOREN BA I NIELSEN 
40 GO SUB 3500 

50 BORDER li PAPER 1! INK 5 XII 

60 INPUT "SVAERHEDSGRAD (1T04) ”5 SVG X 

70 GO SUB 3000 5 

90 PRINT AT 21,0S"SC0RE "iSC! PRINT AT 21,10S"LIV "SLIV 
100 LET V1=V: LET H1=H 

110 IF ATTR (V.H)=21 THEN GO SUB 1000 j 

115 PRINT AT VI, HIS"I” J 

120 LET V=V+<INKEYt="6" ) -<INKEYt=“7“) f 

130 LET H=H+( INKEYt="8" )-(INKEYt="5“ ) f 

147 IF A*CV,H)O " “ THEN GO SUB 700 / 

150 BEEP .01.1S PRINT AT V,HS PAPER 5: INK 0S"C" / 

170 LET FART=FART+(SVG*2) 

180 IF FART <=6 THEN GO TO 100 < 

190 LET FART=0 ' 

200 LET VV1=VV: LET HH1=HH > 

205 PRINT AT VV1, HH1S 

210 IF VV>V AND A*(VV-1,HH)<>THEN LET VV=VV-1: GO TO 300 

230 IF W<V AND At(VV+l,HH)THEN LET VV=VV+l: GO TO 300 

270 IF HH> H AND A*(VV,HH-1)<>THEN LET HH=Hh-1: GO TO 300 

280 IF HH <H AND A*CVV,HH+1)O“_ M THEN LET HH=HH+i: GO TO 300 

300 IF At ( VV 1, HH 1) <> ” “ THEN GO SUB 800 
400 PRINT AT VV, HHS PAPER 2S"A'' 

410 LET SV1=SV: LET SH1=SH 
420 PRINT AT SV1. SHIS"l" 

430 IF SV>V AND AtCSV-1,SH)<>THEN LET SV=SV-1 
440 IF SV<V AND At<SV+1,SH)<>THEN LET SV=SV+1 
450 IF SH <H AND At(SV,SH+1)<>" THEN LET SH=SH+1 

460 IF SH> H AND At (SV, SH-1) <> " THEN LET SH=SH-1 

480 IF At(SV1,SHI)<>" " THEN GO SUB 900 
490 PRINT AT SV, SHS PAPER 2S"A" 

500 GO TO 100 

710 IF At ( V, H ) = "_“ THEN LET V=V1: LET H=Hi: RETURN 

720 IF At(V.H)="B" THEN LET SC=SC+1: PRINT AT 21.6SSC: LET AtCV,H)="| 
TOTAL THEN LET TOTAL=TQTAL+TOTAL: IF SVG<5 THEN LET SVG=SVG+l: GO TO 
730 IF SVG=5 THEN LET LIV-LIV+ll LET SVG=l: GO TO 70 
750 RETURN 

SOO IF At < VV 1, HH 1) = " B " THEN PRINT AT VV 1, HH1 S At C VV1, HH1) : RETURN 

900 IF At C SV1,SH1) = "B" THEN PRINT AT SV1,SHISAt(SV1,SHI) 

950 RETURN 

1000 LET LIV=LIV-1: FOR A=30 TO -30 STEP -is BEEP .01,A: NEXT A: PRINT 
"LIV “SLIV: IF LIV=0 THEN GO TO 1050 

1010 PRINT AT VV, HH;AttVV,HH): PRINT AT SV,SHSAt(SV,SH) 

1020 GO SUB 3300 
1030 RETURN 

1050 IF SC < VAL Bt(5. 11 TO 15) THEN GO TO 1200 

1060 INPUT "DIT NAVN “;Bt(6, 1 TO 10): LET Bt(6, 16-LEN STSt SC TO :5)=S 

1100 FOR A=1 TO 5: LET Ct=Bt(A,1 TO 15) 

1110 IF VAL BtC6,11 TO 15)<VAL Bt(A, 11 TO 15) THEN NEXT A 
1120 LET Bt(A,1 TO 15)=Bt<6,1 TO 15) 

1130 LET Bt(6,1 TO 15)=Ct 
1140 NEXT A 

1200 CLS : PRINT AT 0,OS"RANGLISTE"SAT 2,3S"NAVN"SAT 2. 13;"SCORE”: FOR 
PRINT AT 2*A+2,0SAS“. "SBtCA, 1 TO 10)SBt(A, 11 TO 15): NEXT A 
1250 PRINT AT 14,0S"VIL DU SPILLE IGEN <J/N>“ 

1260 IF INKEYt=*J" OR INKEYt="j" THEN CLS : lET SC=0: LET LIV=3: GO T 
1270 IF INKEYt="N“ OR INKEYt="n“ THEN STOP 
1280 GO TO 1260 

3000 LET At(l) = “_“ 




I": IF SC- 
70 


AT 21, 105 


TRt SC 


A=1 TO 5: 
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CY >:B1 
THEN C 
;C=0'-NE 


Piogrgznirfi: 

Samtiige aflrykte listninger 
ei afpravede tor oflentllg- 
garelse Forlagol belaler 
skattetnt op HI 1 OCX) kroner 
lor godkendte lceserpro- 
grammer Forlaget har ret til 
at aftrykke godkendte pro¬ 
grammer 1 bladet og ollent- 
liggore dem pd andre 
lagermedia 


,QU< 3 l9> 










>CHP*( 


,CHR*< 
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NEXT!PR 


3010 LET At(2)=“_BBBBBBBBBBBBBBBBBBBBBBBBBBBBB_“ 

3020 LET At(3)=“_B_B_B_B_B-B_" 

3030 LET At(4)="_B_BBBBBBBBBBBBBBBBBBBBB_B_“ 

3040 LET At(5)="_B_B_B_B_B_B_" 

3050 LET At(6)=”_BBBBB_BBBBBBBBBBBBB_BBBBB_” 

3060 LET At(7)="_B_B_B_B_B_B_" 

3070 LET At(8)=“_B_BBBBBBBBBBBBBBBBBBBBB_B_" 

3080 LET A* (9) = "_B_B_B_B_B_B_” 

3090 LET At(10)="_BBBBBBBBBBBBBBBBBBBBBBBBBBBBB_" 

3100 LET At(ll)="_B_B_B_B_B_B_" 

3110 LET A*(12)=“_B_BBBBBBBBBBBBBBBBBBBBB-B_" 

3120 LET At(13)="_BBBBB_BBBBB-” 

3130 LET At(14)="_BBBBBBBBBBBBBBBBBBBBB-" 

3140 LET A* (15) ="_B_B_B_3-" 

3150 LET A* (16)="_B_B_B-B-" 

3160 LET A*(17)="_BBBBBBBBBBBBBBBBBBBBBBBBBBBBB_" 

3170 LET At (18) ="_B_B_B_B_" 

3ISO LET At(19)=”_BBBBBBBBBBBBBBBBBBBBBBBBBBBBB_" 

3190 LET At (20)=“_" 

3200 FOR A=1 TO 21: PRINT AT A.1;At<A): NEXT A 
3300 LET V=10: LET H=16: LET V1=V: LET H1 =h: LET VV 
HH1=HH 

3310 LET SV=19: LET SH=30 
3400 RETURN 

3500 FOR A=USR "A" TO USR "C"+7 
3510 READ USER: POKE A,USER 
3520 NEXT A 

3530 DATA 129,36,102,36,129,102.183,219 
3540 DATA 255,255,247,227,213.221,227,255 
3550 DATA 24. 36. 24, 60, 90, 24, 36. 36 
3600 LET T0TAL=28l: lET SC=0: LET FART=0 
3620 DIM At(21,31) 

3630 LET LIV=3 
3640 DIM Bt(6,15) 

3650 FOR A=1 TO 5: LET Bt(A, 1 TO 10)="SPE2TRjM": LE 

3700 PRINT AT 0,10i“APPLEHUNT"!AT 0,10! OVER 15 1 _ 

3720 PRINT AT 2,05"DETTE SPIL GAAR UD °AA AT BEDE 
- TIDIG MED AT MAN PROVER AT UND- GAA DE BLCD _ 0RS'' 
YDDET EN BANE FAAR DU EN NY DER ER SVAERERE END 
3725 PRINT "NAAR DU HAR VAERET IGENNZM 4 BANER, 
VAERHEDSGRADEN BLIVER SAT TIL 1 I GEN" 

3730 PRINT "DU STYRER MED PILETASTERNE" 

3740 PRINT "SVAERHEDSGRAD 1 ER DEN NEMMESTE" 

3750 PRINT AT 20,85"TRYK FRO EN TAST" 

3760 PAUSE 0: CLS : RETURN 


.c' Hri=2: _£T VVi=VV: LET 


t 8t(A, 15 TO 15)='0": NEXT A 


0,105 OVER 15‘_ 1 


R_E PEB.ERNE =>RP. EN E’BNE, SAM 

IDE L'rYREX. .PAR EL .-.A ; R 

DEN FGREjSALnDE • 

-ASR 0 U E' EKETRfl _J>. ZC C 


Screen Dumper 


■ Hvis du kender startadres- 
sen i HEX pd dine skcermbille- 
der, kan du udprinte ethvert 
skcermbillede pd din 801 el- 
ler 1525 printer. 

Du indlceser skcermbilledet, 
runner det og trykker sb RUN- 
STOP/RESTORE. ndr skcermbil¬ 
ledet er Icerdiggjort. Du loa¬ 
der sd program ind og runner 
det. Du bliver spurgt om start- 
adressen i HEX. og deretter 
klarer din printer resten. □ 

Arne Jargensen 


E£< 


RE< 


RE(319> 
texT ■ t-exT 










































Memograf 


Dette MTX 500. 512 og RS 128 
program fir mig til at anske. 
vi gik i farste gymnasieklasse 
igen. si vi rigtigt kunne bruge 
det. 

Programme! er en uvurderlig 
hjaelp til alle de tag. hvor 
man udfarer forsag og iegner 
grafer, i.eks. fysik. kemi. bio- 
logi og evt. matematik. selv 
om man ikke laver forsag i 
matematiktimerne 
Mange af fysikforsagene i 
gymnasiet og folkeskolen gir 
ud pi, at man udfarer et eller 
andet forsag en masse gan- 
ge. og bagefter skal man teg- 
ne en graf over resultaterne 
Olte fir man nogle skceve re- 
sultater. som det kan vcere 
meget svcert at fi til af ligge 


pi en ret linie. hvilket det ofte 
drejer sig om at bevise. 

I dette program skal man ba¬ 
re indtaste de forsagsresulta- 
ter. man har fundet frem til i 
form af x.y-vcerdier - si teg- 
ner MTX 'en den mest lige linie 
igennem punkteme. Des- 
uden fir man opgivet en lig- 
ning af formen y=ax+b til 
grafen. 

Hvis du har bmg for at finde 
bestemte vcerdier til bestemte 
x eller y vcerdier, indtaster du 
bare din x eller y vcerdi. og 
vupti har du den korrespon- 
derende x (elelr y) vcerdi. 
Programmet er meget lcek- 
kert opbygget, og starter med 
et Hot DanmarkskortCU 

LeitLeiholdt 


1© as CLEAR 

2© GENPAT 0,91.56.96.160-160,248,160,184,0 GENPAT 0.123.0.0,240,40,248,160-12© 
© 6EHPAT 0,124,0,0,112,152,168,200.112,0 GENPAT 0.125,32,80,96.16,112,144,120. 

25 GEMPAT 0,92.0,0,56.68.64.68,56,0 GENPAT 0,93,0.0.56.68,132,68.56.0 
30 PLOD "PROGRAM" 

40 CSR 12,22 PRINT "ANTAL PUNKTER" 

50 INPUT N 

60 IF N-l OR N-0 THEN GOTO 50 
70 DIM X<N>,Y<N> 

80 LET 01-0 LET 02-0 LET 03-0 LET 04-0 LET 05-8 , 

90 LET R-5 /? 

110 PRINT "ANTAL PUNKTER "tN /5c", 

120 CSR 0.3 PRINT "X.Y" Z//M/ 

130 FOR Z-l TO N ZZ'/ZVi 

140 CSR 0.R £' 

150 INPUT X<Z),Y<Z> 

160 CSR 20,R / A 

170 PRINT "<X,Y>-<"jX<Z>j","jY<Z>(">" /S*/ /T&f 

18© LET R-R.l / /•, /"V . 

190 NEXT Kv,7» 

200 FOR Z-l TO N / /V/ ■«/ 

210 LET 0l-0l»X<Z) LET 02-02»Y<Z) LET 03-03*X<Z>«Y(Z» /S/ '///£,■ //ft/, 

220 LET 04-04.2(2 >'2 LET 05-05»Y<Z)'2 / /‘■.V ’/ 

230 NEXT 

240 LET M1-0I2N LET M2-02cN LET A-U2 L /A/ 7*. A. 

245 IF <04-NlWl'2).@ THEN PLOD "P2" ELSE GOTO 250 /?S L /’•../ ’■/ 

247 GOTO 10 / / -,/ 

250 LET ALF*<Q3-N*UUW2V<Q4-N»H1"2> p'/fj. 7***U 7* 

260 LET BET-A-ALFKW1 / /"■•I /Sc/ ‘7. 

290 LET T-03-NKWUW2 /S/ /S/' /Sa/A 

300 LET NV-SOR((04-N*H1'2>»<05-N*N2'2>) / /’•-/ /'•.,/ SS / 

305 IF NV-0 THEN PLOD "P3" ELSE GOTO 310 h-.J /S/ /■-. / SC, 

307 GOTO 10 / r-J 7S/ Sc/ 1 

310 LET R1-ABS<T/NV> Ac/ /’'■•J. rW Ac 

350 CLS / 7 --.J / ■■J 

360 PLOD "PI” yL, / /■-../ /■••./ /•■-,/ 

361 CSR 0,0 PRINT "BEDSTE RETTE LINIE " / ’•A. 7‘ 

362 CSR 0,2 PRINT "Y»" ;ALF, "*X»< "j BET, ■)" L. / / S. / 

363 CSR 0,4, PRINT "KORRELETIONSKOEFFICIENTEN .- / /‘SS / '/•-./ ' 

365 CSR 0.6 PRINT "R="iRl / / / 7‘-- 

370 LET K*-INKEYt IF K*-"" THEN GOTO 370 /'••-/„ / ['"4.. / I 

380 LET K*VALtK«) IF K< 1 OR K>5 THEN GOTO 370/ 1 7^-J / ''f'-J /**••£ 
390 ON K-l GOTO 1000,2000 3000,4000,5000 / / "A.. / / 

1000 VS 4 PAPER 1 INK 15' CLS / r”7—J. / r-J. /“t- 

1001 FOR Z-l TO N A. / / / / 

1002 LET X1-XCZH127 LET YI-Y(Z)*95 / / / --J.. / 7-( 

1003 IF X!< 1 OR XI>254 OR YKI OR Y1>190 THEN GOTO 1005 

cbSI X1,Y1 PL0T PLOT Xl-l.Yl-l PLOT X1.1.Y1-1 PLOT Xl-l.Yl.l 

NEXT 

1010 LINE 0,95,255.95 LINE 127,0,127,191 
1020 LET X-37. LET Y-5 
1830 FOR W-l TO 19 

1048 LINE X,96,X.93 : LINE 126,Y,128,Y 
1050 LET X-X.10, LET Y-Y-10 
1060 NEXT 

1070 LINE 225,10,225,20 LINE 224,20,226,20 
10S8 CSR 29.22 PRINT "*1@" 

1100 CSR 0,0, PRINT "Y»"•ALF."X.<",BET.")* 

1105 PRINT "R*";R1 


LINE 224,10,226,10 

































■ Du skal undgd de miner, 
som spger imod dig ved at 
hoppe over dem. Program¬ 
med forklaring Andes i ovrigt 
i de sidste linier. 

Der krceves 16 K RAM, og joy¬ 
stick er en absolut lordel. Har 
du en ZX-81. udelader du blot 
musikscetningerne og bruger 
et andet tegn som uhyret. Du 
starter med GOTO 4020, og 
SAVEr programmet pd bdnd 
med RUN 4000.□ 

Peter Anker Jakobsen 


J0 




Vigtigt tip 


OPLYSNINQ TIL 
COMMODOKI UDUSTN1NGERNE 


N6r du s«r 

(CLR) 

(HOME) 

(CRSR NED) 
(CRSR OP) 

(CRSR H0JRE) 
(CRSR VENSTRE) 
(DEL) 

(INST) 

(RETURN) 

(SPACE) 

(RVSON) 

(RVS OFF) 
(SORT) 

(HVID) 

(R0D) 


Betyder det 

Screen clear 

Home cursor 

Cursor ned 

Cursor op 

Cursor hajre 

Cursor venslre 

Delete tilbage 

Insert 

Return 

Space 

Reverse on 

Reverse oil 

Sort 

Hvid 

Red 


Dutrykker 

SHIFT CLR/HOME 
CLR/HOME 
CRSR OP/NED 
SHIFT CRSR OP/NED 
CRSR H0JRE/VENSTRE 
SHIFT CRSR H0JRE/VENSTRE 
INST/DEL : 

SHIFT INST/DEL 
SHIFT RETURN 

SPACE [ 

CTRL 9 

ctrlo Ism 

CTRL 1 /gM 

CTRL 2 ■ 

CTRL 3 


(CYAN) 

Cyan 

CTRL 4 

(LILLA) 

LUla 

CTRL 5 

(GR0N) 

Gran 

CTRL 6 

(BLAA) 

Bid 

CTRL 7 

(GUL) 

Gul 

CTRL 8 

(ORANGE) 

Orange 

COMMODORE 1 

(BRUN) 

Brun 

COMMODORE 2 

L.R0D) 

Lysered 

COMMODORE 3 

(GRAAI) 

Grd 1 

COMMODORE 4 

GRAA2) 

Grd 2) 

COMMODORE 2 

(L.GR0N) 

Lysegran 

COMMODORE 6 

(L BLAA) 

Lysebld 

COMMODORE 7 

(GRAA3) 

Gtd 3 

COMMODORE 8 

(FI) 

Funkllonslast 1 

FI 

(F2) 

Funktionstasl 2 

F2 

(F3) 

Funktionstast 3 

F3 

(F4) 

Funktionstasl 4 

F4 

(F5) 

Funktionstast 5 

F5 

(F6) 

Funktlonstast 6 

F6 

(F7) 

Funktionstast 7 

F7 

(F8) 

Funktionstast 8 

F8 
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Autostart er navnet pa dette 
hjcelpeprogram, der kan la¬ 
ve en loader til ethvert pro¬ 
gram, du mener tortjener au¬ 
tostart . 

Programmet er selvforklaren- 
de, men du bar vide, at den 
startadresse du vcelger, er 
meget vigtig tor, at programet 
tremover skal kore som nor- 
malt. 

Det eksempel, programmet 
giver ($0800) SKAL, hvis du 
onsker samme startadresse 
indtastes $0800, ellers vil pro¬ 
grammet tolke indtastningen 
som decimaltal. hvilket giver 
adresse 800 i stedet for 2048 
En kort oversigt over program- 
met: 

Linie Funktion 

100-240 Programmet sparger 
om alle nadvendige 
oplysninger. Det 
checker ogsd DATA- 
linierne, 

250-410 Startadresse pd pro¬ 
grammet indhentes, 
og tor maskinkode- 
programmer, hvor 
det skal startes etter 
load. 

420-480 Mulighed tor korrige- 
ring at tejlindtastnin- 
gen. 


490-530 


540-577 


580-620 


630-680 


690-770 


800-870 


900-960 


Her lcegges diverse 
adresser ind i et ar¬ 
ray til senere brug. 
Her abnes en til at ty- 
pen prg. Hvis denne 
eksisterer, kan man 
vcelge. om den 
gamle skal udskittes, 
eller cendre det nye 
navn. 

Her skrives loaderen 
(farste del). 

Her skrives datalini- 
erne pd disketten. 
Disk status checkes 
og filen lukkes. 
Subrutine: Konverte- 
ring at hexadecima- 
le tal. 

Subrutine: Konverte- 
ring at decimale tal. 
Subrutine: Check at 
diskstatus, fejlmed- 
delser skrives ud. 
Subrutine: Check at 
datascetningerne. 
Programmet stop¬ 
per, hvis der er tejl i 
data. 

DATA-scetningerne, 
der er ens for alle 
load'erne.D 
H H Heidensleben 




10 rem *« »**<«•« ♦**<»* #«>**«*.■♦■♦******♦..♦ ♦ 

20 REM rn <¥- 

30 REM ** H.H.HriDENSLEBEH ♦ 

-40 REM m #- 

30 REM * <C> 17/3 1983 

60 REM «•» * 

.*0 rem m m m «•* m m m * m m m m ** ** m m m ** 

00 REM 
90 REM 

100 ROKE 33201,10 POKE 33280,6 
110 PRINT" < CLR, TEXT, R0D) " • OOSUB 2000 RE 
STORE 

120 PRINT" —ETTE PROGRAM SKRBER EM AUTO 
START-" 

130 PRINT"LOADER TIL EM EKSISTEREMDE PR 
OGRAMFIL." 

1 -*0 RR INT"< CRSR MED, SPACE > R EKS I ST ERE M 
DE PROGRAMFIL SKREVET I" 

130 RR I MT " MASK I MKODE ELLER BASIC I 

160 OET R* : IF R*—"" THEN 160 

170 IF R» —"M" THEM PRINT"<CRSR OP.RVS O 

M > -n .2-' I-< R VS OFF)" 

100 IF R* —"B” THEM RRIMT TRB< 17) "<CRSR 

OR,RVS ON)I**>-<RVS OFF)" 

190 PRINT" < CRSR MED, SPRCE >-. MDTRST MAVM 

RRR EKSISTEREMDE PROORRM " 

200 INPUT NA* 

210 IF MR*— " " OR l-EM<MR*)>16 THEM PRINT 

"< CRSR OR2> " = GOTO 200 
220 PRINT" (CRSR NED, SPRCE >-s MDTRST MRVM 
RRR RUTOSTRRT LOADER•" 

230 IMRUT LM* 

240 IF LM*-"" OR LEM<LM*)>16 THEM PRINT 

"< CRSR OP2>" : OOTO 230 
230 PRINT" (CRSR NED, SPRCE )-s MDTRST DEM R 

DRESSE HVORFRA PROGRAMMET" 

260 PRINT"OEMSKES LROT <DECIMRLE EL- HE 
XR DECIMRLE" 

270 PR I MT " TRL F-EKS- -*9132 EL- *C000 > - 

200 IF R*—"B" THEM PRIMT"—OR BRSIC PROG 

RAMMER MORMRLT *0000. 

290 IF R*—"M" THEM PRINT"—OR MRSKIMKODE 

PROORAMMER F-EKS *C100- 

300 INPUT NR* IF MR*-"" THEM PRINT"<CRS 

R OP2)" : OOTO 300 

310 IF LEFT*<MR*,1)—"*" THEM OOSUB @00: 
OOTO 330 

320 OOSUB 90U 

330 IF FE THEM PRINT"(CRSR OP2)" GOTO 3 

00 

3-*0 RD —MR RD* —MR* : MR*—" " 

330 IF R» —" B " THEM -*2@ 

360 PRINT" (CRSR MED , SPACE > MDTRST DEM R 

DRESSE HVOR MRSKINKODEPRO. 

370 PRINT"OEMSKES STRRTET <MED JSR>." 
300 INPUT MR* IF MR*—"" THEM PRINT"<CRS 
R OP2)" : OOTO 300 

390 IF LEFT *< MR*, 1> —"*" THEM OOSUB 80O 

OOTO 410 

400 OOSUB 900 

410 IF FE THEM PRIMT"<CRSR OP2>" OOTO 3 

@0 

420 FOR M— 1 TO LEM < MR* > POKE 13434-M .PEE 

K<1343+M)OR 120 NEXT 

430 FOR M— 1 TO LEM < LM* > : POKE 1 465+M .. PEE 

K < 1463+M> OR 12© NEXT 

-*-»0 FOR M—1 TO LEMC RD* > : POKE 1703-»M ,PEE 

14Ci705-*-H) '“iR 12© ME XT 

430 IF R»—" M" THEM FOR M—1 TO LEMC MR* ).: 

POKE 1 863+N , PEEK < 1 063+ M >4-1 28 NEXT 

*60 PRINT" <CRSR MED , SPRCE > tLLE INDTRSTN 
IMOER OK V/ ? 


Auto start 
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Her er et lille sjovt program til 
ZX-Spectrum, hvor du kan 
indtaste en hvilken som heist 
dato, og 16 udskrevet den 
ugedag datoen falder p6. 

De indrammede karakterer 
skal iridtastes i gralik mode og 
saves med GOTO 9999. Dette 
gor programmet selvstarten- 
de.D 

Jan Birkelelt 


35 PRINT . PRINT 

rut pc eNTeR i of start.•• 
ZB PAUSE 5 : CLS 
119 INPUT "049?.1 ... 

iae input "KC>'«d?.l .. 


31. d 
. 12 


8f£ 

•' ! )•• •! 

■iap^*. adttddHflddiitad■■ 


TRUM y 

■ 1 ^ r .7 • 7 V “ “ “ . *7"*“ 

3 


lSe I? ■<! OR k>>13 THEN SO TO 

see 

193 IF d <1 OR d > a32 THEN GO TO 
333 

233 IF (OS OR »■* OR ■ >6 OR ■ • 
9 OR ■•11) AND d >33 THEN SO TO 3 
33 

235 IF *02 THEN SO TO 2*8 
213 IF (d >29) RNO <■•2) THEN SO 
TO 383 

215 IF d <29 THEN GO TO 2*8 
223 IF d>29 RNO ■•S THEN GO TO 




*o, 


Datta progr** lan fortIBlia dig. 
hvilian ug«d*g d«r hBrar til tn 
baft t«it da to , ft ob du ft clv vffllaar 

23 PRINT ; PRINT 
0 »to«n tin VBra in hviltan »o« 
htlftt dito. og ftvirit vil vfflrt 
aftar dm gragoriansta liltndir" 
30 PRINT . PRINT 

coiputtrtn ttiliar d>9 * ftPEVaft- 
■Cjl. ft ob du fttil biftvirt. fttlv- 
ENrER" 49 hv * r 3404 aftarfuigt ar 

35 PRINT : PRINT 
Trut pc enter for start." 


225 IF h-*«INT lh/*)«0 RND r .0 
THEN GO TO 2*3 

225 IF h-*tINT (h/*) < >3 RNO r*0 
THEN GO TO 300 

233 IF h-*jINT (h/*)<>0 RNO r-* 
UNT (r/*)«0 THEN GO TO 2*3 
235 IF h-**INT (hr*) 03 RNO ! -4 
tINT (r/*< >3) THEN GO TO 380 

TO*SeiT B> ’ 3 ™ EN teT 80 

250 IF ■ <3 THEN LET b.a.10 
260 IF B.ll OR 12 THEN LET tnt- 

270 IF r.-l THEN LET t -99. LET 
h>h-l 

283 LET i.INT 12.6»»-.1> .d.r.IN 
T (r/*) +INT (h/*)-2th 
293 LET v ■! -7# INT <*/■?>: GO TO 

*38 

303 FLASH 1. PRINT "Ittl-ltftiftt 
trtndl da to I". FLASH 3. PRINT : 
PAUSE 133: GO TO 110 
*00 IF v.0 THEN PRINT "S0NOAG" 
410 IF v.l THEN PRINT MANORS" 
*20 IF v >2 THEN PRINT "TIRSDAG" 
430 IF v.3 THEN PRINT "ONSDAQ" 
4*0 IF v *4 THEN PRINT "TORSDAQ" 
450 IF v.5 THEN PRINT "FREOAQ" 
460 IF v.6 THEN PRINT "L0ROAG" 
470 PRINT PAUSE 100. GO TO 11 


130 INPUT 'IBrhundridit* l?.F.a 

tft . 17 16 19 20 oftv . h 
1*0 INPUT "Br i Orhundradtla l la 

t?.8 ... 99: r 

150 IF r > >0 ANO r<»9 THEN GO TO 
174 

160 PRINT dah; r: GO t 
0 180 

170 PRINT d,"."ih.0,r: GO 


1010 FOR x >0 TO 39 

1030 READ w POKE USR "a"*X.w 

ill! 88 

0 

1060 DATA 24.0.56.4.60.78.60,0 
1070 DATA 0,0,52 * 10,60.72,62.0 
1060 DATA 0,0.58,76.64.100.56.04 
1000 CLS 
1100 RETURN 

9990 SPUE "UOEDAO" LINE 1 


*47*£J OET B* IF B* —" " THEM 470 
480 IF BTHEM RUM 

*4^0 PR I MT " <CRSR OR , SPACE > »KR I VER PROORH 
N PFtfl DISK. XENT LIDT I •• 

■soo co<e «>-0 co< i >»i 

310 CO<2)-LEN<Nfl$) : CO < 3)"LEM < NR4 >♦12 
520 CO(5>-INT<RD/236> CO<4>-flD-CO<3>«25 

530 CO<7)-INT<NR/256>:CO<6)-MR-CO<7>«25 

5-40 OREM 15,0, 15 

550 OREM 5,©,5,LN*+",R,W " 

560 OOSUB 1000:IF E1-0 THEM 5©0 
565 PRINT" CCRSR OR. SRRCE> —IL EKS I STERER 
I -ERLRCE V/ *7 

570 OET B* IF B*-"" THEM 570 
572 IF.B*-"J" THEM 577 

57*5 POKE 214,9 GOTO 220 


‘ +Nflt + C 


620 FOR N —0 TO 57:RERD CO RRIMT45,CHR*< 

CO);:NEXT 

630 IF R*-”M" THEM 670 

640 PR I MT445 , CHR*< 1-4 1 > ♦CHR* < CO < 4 > )+CHR*< 
COO) > ; 

650 FOR M —0 TO 23 : RERD CO RRIMT43, CHR* < 

CO); NEXT 

660 OOTO 690 

670 FOR N-0 TO 25:RERD CO:NEXT 
660 FOR M—0 TO 28 RERD CO PRIMT#3,CHR »C 

CO)> s NEXT 

690 OOSUB 1000 

7-10 PR I MT " < CR8K OP , 8PRCE38 ) " 

T’20 PR I MT " < CRSR OP , SRRCE ) r- - ROORRMME 

T " CHRf < 34 ) MR4CHRC 04 ) 

730 PRINT"VIL MU TIL EMHVER TIB LORDES 
OO KOERES," 

740 PRIMT"VED RT IMDTRSTE■" 

750 IF LEFT*<LNf,3)-"(l0 " THEM LN4-RIGH 

T»(LN*,LEM<LN*)-3) 

760 PRIMT" < CRSR MED)LORD"CHR*<34)LM4CHR 

*<3*>" , ©,1" 

77© CLOSE 5 : CLOSE 13 'EMD 

©00 FE-0:MR—0 FOR M—2 TO LEN(MR») 


577 

LN*- 

"<■0 

5©0 

FOR 

M —0 

EXT 



590 

PR IMT#5, 

HR* < 

13); 


6*10 

FOR 

N — 0 

6 10 

PR IMT#3, 

620 

FOR 

M —0 


©10 DI-R3CCriID*<MRf,N, D) 

©20 IF DI>47 RMD D I <5© THEM DI —DI —-4© OO 

TO ©50 

©30 IF DI >6*4 RMD DI<71 THEM DI —DI —55 OO 

TO ©50 

©-40 FE—1 

©50 NR-MR + DI»16 t< LEM < MR* >-N) 

©60 NEXT M 
©7*0 RETURN 

900 FE —0 FOR N-l TO LEM C MR* > 

910 DI-RSC<MID*<NR*,N,1)) 

920 IF DI<4© OR DI>57 THEM FE—1 

930 NEXT M 

9- 40 MR —VRL <NR») 

950 IF MR>65535 THEM FE-1 
960 RETURN 

1000 IMPUT415,Elf,E2f,E3*,E4f 

1010 IF VRL<E14)<20 THEM E1-O RETURN 

1020 CLOSE 5 CLOSE 15 

1030 IF VRL <El»)-63 THEM El —1 RETURN 

10- 40 PRINT " < CRSR OP) "El*" , "E2*" , "E34" , 
"E-4*" 

1050 END 

2000 PRINT"—HECKER —* I ♦ SRETMIMOER. " 

2010 CHKSUM-0 

2020 FOR N-0 TO 112 

2030 RERD R = CHKSUM-CHKSUM*R 

20-40 NEXT M 

2050 IF CHK9UM-13394 THEM PRINT"<CLR>": 
RETURN 


PR IMT"—EJL I 

—♦! ♦ 

SRt T MINRER 

f f f " 


DRTR 

23-4 . 

23-4 , 

1 20 , 

1^2, 

014, 

255 , 

1 5-4 . 

032, 

2 

, 1 65 , 

1 57 , 

072 , 

2-40 . 

1 62 , 

O00 



DRTR 

1 ©9 , 

006 . 

00 1 , 

032, 

2 10. 

255 , 

232 , 

2 

• 00 1 , 

20© * 

2-4-4 . 

1 73, 

000 , 

00 1 , 

1 33 



DRTR 

1 83, 

1 69, 

000 - 

1 33 , 

1 ©5 , 

1 33 , 

1 57 , 

1 

, 1 3-4 , 

1 ©6 . 

1 62 , 

00 1 - 

1 3-4 , 

1 : :© , 

1 62 



DRTR 

017, 

1 3-4 • 

1 ©7, 

0©© , 

1 7-4 • 

002 , 

00 1 , 

1 

• R0 1 , 

232 , 

1 3-4 , 

043 , 

1 32 , 

0-4-4 , 

032 



DMT R 

2 13, 

255 , 

1 -4-4 . 

003 , 

076 . 

00-4 , 

225 • 

1 

, 1 32 , 

046, 

032, 

05 1 - 

1 65 , 

032 , 

0©9 



DRTR 

1 66, 

076 , 

1 7*4 

1 67 , 

032 , 

2 13, 

255 . 

1 

, ©76 . 

00-4 . 

225 , 

1 0-4 , 

1 33 , 

1 57 , 

2-40 



DRTR 

006 . 

1 69 • 

1 6-4 

1 60 , 

115, 

20© . 

00-4 . 

1 

• 1 60 - 

1 73, 

072 , 

1 52 , 

072, 

1 0© . 

00-4 



DRTR 

00 1 
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Flugten fra 

■ Hor or cA of cr-»il til C' r\mm 


■ Her er s6 et spil til Commo- a! nogle huller, som kommei 
dore 64 med titlen Nerm. I spil- til syne. Det gcelder sd om at 
let er Nerm taret vild i et slot, styre Nerm igennem 11 mm. 
og vil hjem. Styr ham til en Spillet er selvforklarende til 
svamp. sd han kan holde sig mindste detalje.D 
stcerk pd rejsen. Etter du har Carsten Lohmann 

spist 5 svampe. kan du gd ud 






I PORE 32, 481 POKE 36,40iPP|NT-<CLP>* 

* POKE 33270.PEER<33*70>0fE> 13 
3 POKE 33200,0 * POKE 33201,0 
10 OOTO 3000 

IOO S-PEER< 36320)»«) ISiFOP 0-1 TO SPif«XT 

110 IP 3-7 OP S-6 OP S-3 THEN OX-IlOY-OIOI - IiIP 00-2 THEN OX-•1lOV-OtOI-2 
120 IP S-ll OP S-IO OP 8-9 THEN OX--|lOV-O■OI-2:IP 00-1 THEN OX-I:0Y-0■OI•I 
130 IP 8-14 THEN OY--IiOX-O<01-4iIP 00-3 THEN OI-3>OY-I:OX-0 
140 IP 8-13 THEN OY-IiOX-O101-31 IP 00-4 THEN OI-4IOY--II0X-0 
143 PO-1024 *X0•Y0.4O100-0 IiPOPE P0.42IP0RE PO*SO.LI 

130 XP-XP *0X I YP- YP *0YIL-LENT X0B > I *C HP*• X* ) ! <CHB** Y6 > 

133 Z-PEER'I024.XP.YP.40*«IP Z<>32 THEN 200 

161 PORE SO*I , 40t PORE S0*4.|7 

162 PO- 1024 *XP . YP.40 ■ PORE PO,42iPORE P0*80.10I PORE SO*4,l6UF l«UO THEN IOO 

190 PO- I024.PSC< XP0 > *40*PSC< YP0> ILL-LENC XP« > - I t XPS-P IOMT» XPB.LL> 

191 PORE PO,32iPORE P0«S0.0 

193 YP0-PIOHT*< YP0.LDIOOTO IOO 

200 PORE 80*I,20iPORE SO*4,|7iPORE 80*4,16 

201 PO - 1024 *XP *40. YP i PORE P0.42IP0RE PO-SO , 10: GOSU8 6600: IF 2< >0u THEN 260 
210 l*>-l*>.|3*3.L0i IF WO >240 THEN M0-240 

220 XX-!NT<PM>< I >.36*2>lX-INT<Pr«X I >.I8*3>I IP PEER* 1024.XX.40.XX >32 THEN 220 

221 SC-SC *IOO*LO*71PORE S0«4,33iP0RE 80*4.17 

223 HI-HI-IiGOSUB 6600«IP H|>0 THEN 229 

226 PO-1024.20.40.2SP0RE PO.I60SPORE PO*S0,0iPO-1024*20*2 I.401PORE P0.I60 

227 PORE PO»SO ,OiPO- 1024 *40.12 iPORE PO.I60:PORE PO*SO.OiPOKE SO.I. IOO 
1 PORE SO‘4,17 

220 PO - 1024 >40* 12*39 • PORE P0.I60IPORE PO.SO.OOOTO IOO 

229 PO-I024.XX.X.40IPORE PO,BUGiPORE PO*SO,l3 

230 OOTO IOO 

260 IP 20160 P H3 LI>I THEN GO SUB 7SOOIOOTO 290 
263 IP 20160 THEN 7300 

270 PORE SO*I.90iPORE SO.4,17 

271 GOSUB 7OOOiP0INTVHOf>«.C0S* NE024>- 


273 FOP OE-I TO 24iPPINT«PORE SO• I ,OELiPORE 80*4,17 UEXTiPORE 80*4.16 

200 LO-LO*UUO-3i IP 1.0-12 THEN 1200 

201 LI-LI.IMF LI > 13 THEN Ll-ll 
283 IP LO>EK THEN OOSUB 9100 
207 PP1NT’<CLP>‘IGOSUB 4100 
290 OOSUB 6600 

300 ON LO GOTO 3020.400,300,330.600,700,800.430.330.IOOO,IIOO,1200 

399 GOTO 3013 

400 PCM ... PKJFN SR PE PM ... 

410 POP 1-1024.3*10.40 TO 1024*33*10.40lPORE I. 33iPORE !*S0,9IICXT 
420 OOTO 3020 

430 PEM ... SRPEPM ... 

460 POP 1-1024.3*10.40 TO 1024 .33* 10.401 PORE 1.33 ■ POKE I-S0.9UCXT 

463 POP 1-1024*10*3.40 TO 1024*18*20.40 STEP 40IPORE 1,33■PORE l*S0,3trCXT 

470 OOTO 3020 

300 PEM ... F TEPOE SRPEPM ... 

310 POP 1-1024.3.5.40 TO 1024.33*3.40iPORE 1.331POKE LS0.9INEXT 
320 POP 1-1024*3*18.40 TO 1024*33*18.40IPORE 1,33iPORE l*S0,9if«XT 
330 GOTO 3020 

330 PEM ... PPRfC 3 ... 

360 POP 1-1024*7*6.40 TO 1024*33*6.40IPORE I,33iPORE l»S0,9irCXT 

373 POP 1-1024*18*7.40 TO 1024«18*20.40 STEP 40 * PORE 1,33:P0KE l*S0,9thCXT 

380 GOTO 3020 

600 PEM ... RPRT6 6 ... 

610 POP 1-1024*1*10.40 TO 1024*18*I0.40IP0RE I.33tPOKE l*S0,9ircXT 
613 POP 1-1024*22*10.40 TO 1024*38*I0.40IPORE 1,33>PORE l*S0,9irCXT 
620 GOTO 3020 

700 PEM ... RPRTC 7 ... 

710 POP J-6 TO 14iPOP I■1024*6*J.40 TO 1024* 12*J.40■PORE 1,33•POKE l*S0,9if«XT 
713 POP 1-1024*20*3.40 TO 1024*32*J.40sPOKE I,33(POKE I*S0.91RCXTlNEXT 
720 GOTO 3020 

BOO PEM ... RPRTC 8 ... 

811 POP 1-1024*1*8.40 TO 1024*18*8.40IP0RE I,33>POKE l*S0,9iNEXT 

812 POP 1-1024*1*13.40 TO 1024* 18*13.40:PORE I.33IP0RE l*S0,9ir«XT 

813 FOP 1-1024.13*12.40 TO 1024 *38* 12.401 PORE 1.331 POKE l*S0,9i«XT 
890 GOTO 3020 
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lOOO FOR J-4 TO I9sFOR !•1024•1•J»40 TO 1024 *37* J•40 SPOKE I. 33‘POKE I-SO.9 
iNEXTif«XT 

1009 FOR J*4 TO 191FOR I•1024*I•J *40 TO 1024.22.J.401POKE I .32!POKE I-SO.9 
ifEXT! NEXT 

1010 GOTO 9020 

1100 FOP J *4 TO 19IF0R 1-1024.10*40 TO 1024-37. J .40: POKE 1.391 POKE I-SO.9 
INEXTINEXT 

1109 FOP J-4 TO 19•FOR !•1024.1 *J*40 TO 1024.30*J-40iPOKE 1.321POKE I-S0.9 
iNEXT'.rCXT 

1110 GOTO 400 

1200 REM OU VltOER ••• 

1209 FOR 22-1 TO 3 

1210 PR 1NT*< CUR .CRSR f«08.CRSR HO JRE 14 »t«RM • S HJEM* 

1212 PRINT** CRSR ►C03.CRSR HO JRE 19 * MANGE TAK * 

1219 FOR G-l TO 9 

1220 FOR 1-1 TO 10 

1229 POKE S0*1,I*6iPOKE SO-4,17 
1240 NEXTiNEXT 

1249 FOR I-I TO 2001 POKE SO*!.HPOKE S0-4.17IFCXT 
1290 NEXTiGOTO 7700 

4100 FOR 1-96216 TO 96299IP0KE I.LMPOKE I -SO .361KXT s RE TURN 
9000 REM SPILLET OP 

9009 GOSUB 10000IG0SUB 11 100«BUG-33 

9011 S p -39!LI-4!SC-O!LO■1tGOSUB 9900«HI-9«WO-9SEX-2sUI•11 

9012 POKE 93270.PEEK*93270>0R 16 

9019 PRINT*< CLR » *IGOSUB 6900 

9020 XA6---IYA8---1XB6---t YBB-**iXA-20*YA-I9I0X-0 

9021 IF LO-3 THEN YA-18 

9029 OV-liT-OUF Ml<0 THEN HI-0 

9030 01-41 IF HI>9 THEN HI-9 

9090 FOR 1-1024.40.2 TO I024.39.40*2«POKE I,39IPOKE I.19.40.39«POKt 1-60.9 

9091 POKE |.SO*19.40.9INEXT 

9099 FOR 1-1024.40.2 TO 1024.40.20 STEP 40!POKE I.39IPOKE l*39,39>P0KE I-SO,: 

9096 POKE I»S0«39.9iNEXTlIF H|>0 THEN 9060 

9097 I - 1024.20*40.2IP0KE I.I 6 O 1 POKE I*S0.01 I•1024*20-21*401POKE 1.160 
iPOKE 1*60.0 

9098 POKE 1024.12.40.I60IP0KE I024•12.40*50.0 

9099 POKE 1024.12*40*39.160IP0K.E 1024 • 12.40.50*39 .0> GOSUB 4|OOiGOTG 190 
9060 XX-RUX I * .36 *21X-RND* IXI8-3HF PEEK* 1024 .XX »X .40 »< >32 THEN 9060 

9069 POKE 1024-XX.X.40,BU1 POKE 1024-XX-X.40*S0.13 

9070 GOSUB 4100 
3089 OOTO 130 
3300 PRINT*< CLR * * 

3910 PR INT*< CR6R ►C0II.CR9R MOJPE 13 >VAER KLAR- 

3340 FOR X-l TO I4IP0KE SO * I .►«« X > l POKE S0*4.|7sF0P 0-1 TO 120 if«xT il«XT 
9343 POKE 60*4.16 
3346 PR I NT *< CLR'* 

3330 RETURN 

6900 REM .«• AFGRAENSF SKACRM ••• 

6310 POKE 80-4.16 
6373 GOSUB 6600 
-390 RETURN 

€600 REM ... PRINT SCORE ... 

6603 PR INTVOUL.HOfC 'SCORE * I 8C 

6606 PRINT**HOME.CRSR HOJRE30>RUM ., L0 

6610 PPINT-SVAMPE *IM|I* LIV -fUl 

•6*0 RETURN 

7000 REM ... FJERNER BKOLORCHJCR ... 

700E BP-BP-3 

7004 OOSUB 6600iHI-9 

7003 L-LCN* XA6 > 

7010 FOR l-l TO L-l 

7020 POKE 80-I.I I POKE S0-4.I7IF0R 00-I TO lOirtfXT 

7180 PO•1024-ABC* XA6 >-40.A6C* YA* >lLL-LENC XA6 >-1iXA6-RI0HT9*XAI.LL > 

7199 YR9-RI0HTB* YA9.LDIP0KE PO.S2IPOKE P0-80.1 

7200 ^XTlPOKE 80*4.16 
7210 RETURN 

7300 REM ... UPS ... 

7910 PR I NT *< CLR.LILLA > * 

7920 PRINT"< CRSR ►CO 12.CRSR HOJRCIB'UPS* 

7321 LI-LI-I 

7323 FOR DC-I TO BOitCXT 

7330 FOR OE-I TO IOiPOKE SO - I . OE .20 • POKE S0*4.I7IF0R OO-I TO lONCXTltCXT 
•POKE 60-4.16 
7930 FOR OE-I TO 20IFCXT 
7360 IF LI<I THEN 7700 v 

7989 PRINT**CLR>*IRETURN 
7700 REM ... SPILLET ER 1LUT ... 

7709 POKE SO-4.16 

77 10 PRINT*< CLR > *'POKE 93270.PEEK* 93270 >AF® 19 

7719 IF SOH8 THEN HS-SOOOSUB 9000IPR INT*< CLR .GRAA3 > * 

77 16 PR INT“< CRSR ►COS.CRSR HO JRE IB '►CRM- 

7720 PR INT-* OUL .CRSR ►COR'OIN SCORE -ISC 
7730 PR I NT** L.ORON.CRSR ►C04>HI0H SCORE *1HS 

7739 OOSUB 7800 

7736 PR I NT *« MV 10 .CRSR »C02>TRYK PAA FIRE 1 FOR ET NYT SPIL. Q-QUIT* 

7740 FOR X-l TO 19'POKC SO-I,PN( X)IPOKE S0-4.I7IF0R 0-1 TO IOO■ rCXTlrCXT 
7743 POKE S0-4.I6 

7780 S-PEEK* 96320)-►<) I6IIF S-0 THEN 3011 
7783 IF PEEK* l97>-62 THEN POKE ISS.OiSVS 2^48 
7793 OOTO 7780 


7000 REM ... SPILLERENS RANG ... 

7810 PRINT** CYAN.CRSR rC02 .SPACE? >01N NYE RANG ER *J 
7920 IF LO-1 THEN PRINT'MJL * 

7830 IF LO-2 THEN PRINT-NYBEGYKOER* 

7840 IF LO-3 THEN PR INT"BEGYtOER * 

7890 IF LO-4 THEN PR1NT*OVET• 

7860 IF LO-3 THEN PR 1 NT'►CSTER* 

7870 IF LO-6 THEN PRINT-EKSPERT• 

7800 IF LO-7 THEN PR I NT * TROLOfWO * 

7890 IF LO-8 THEN PR INT"EfORX UIZARO* 

7900 IF LO-3 THEN PRINT-SUPER ST JER-C * 

7910 IF LO>9 THEN PRINT-UTROLIG STJERK * 

7920 RETURN 

9000 REM ... NY HIGH SCORE ... 

9002 PR INT** CLR > * 

9003 PRINT** CYAN.CRSR -CDS .CRSR HO JRE 16 >NY HIGH- 

9004 PRINT** CRSR -C04 .CRSR MO JRE I 7-SCORE • 

9003 FOR Y-l TO 3 

9010 FOR N-l TO 3 

9020 FOR 0-1 TO 3IPOKE SO-I.0.20(POKE S0-4.l7ifCXT 
9030 POKE SO*1.N.30iPOKE 80*4.17 
9090 -CXT 
9060 fCXT 

9063 FOR 0-1 TO 30itCXT 
9070 RETURN 

9100 REM ... EXTRA LIV ... 

3110 PRINT**CLR>- 

9113 PR I NT *< CYAN. CRSR ►C0I2.CRSR HO JRE 13'BONUS LIV* 

9120 FOR J-IOO TO 200 

9140 POKE SO-I.J•POKE SO.4.17 

9190 *CKT 

9160 POKE SO-4.16 

9170 EX-EX-3 

9180 LI-LI-I 

9190 RETURN 

IOOOO OIM PN* I3>.N* 18 > i PR INT •« CLR .GRAA3 » * 

10003 SO-342721 POKE SO-24.I9IPOKE SO-9.I7IPOKE SO-6,24 IIPOKE SO.IOO 
• PRINT CHR8* 14) 

IOOIO PR 1NT*< CRSR fCOS.CRSR HOJRE 13'HELK0F9CN TIL- 
10020 PRINT** CYAN. CRSR rC04 .CRSR HO JRE 14 .SPACES '/ERM* 

10023 PRINT-*ORANOC.CRSR -COS.CRSR HOJRE13.SPACES'JOYSTICK R2- 
10030 PR I NT-<L. ORON.CRSR rCOS.CRSR HOJRC I I > INSTRlIKT ION <J/N>* 

10049 OCT A9IIF A8-*J-THEN 30000 

10046 IF A6-*N* THEN RETURN 

10047 GOTO 10043 
10060 OOTO 10043 

IIIOO PR I NT •< CLR. CYAN. CRSR »«0I2.CRSR MOJRCS'LIGE ET OJEBLIKMI* 

I I 109 POKE 96334. PEEK* 96334 >AH) 294IP0KC I .PECK* I 'AfEJ 291 

IIIIO FOR 1-12266 TO 12266-64.6«POKE I.PECK* I.40960>■►<XT I 

I I 120 POKE I.PEEK* I>OR 4lPOKE 96334,PECK*96334'OR I 

I I IBO FOR 1-0 TO 391REAO AlPOKC 12288 * I•32.8.Alr«XT 

I I IBS FOR 1-0 TO 71REAO AlPOKC 12268-1-42.9.AitCXT 

I I 190 POKE 33272.* PECK* 93272 *Ar6) 240X12 

11200 FOR l-l TO 16 IRC AO IN I'lKXT 

I 1210 FOR l-l TO 191 RE AO PN*l»lKKT 

11240 OATA 0.0.0.0.0.0 .0.0 

11290 OATA 0.20,63,69.293.40.40.0 

11260 OATA 63,63,83,89,83,89,63.63 

I 126 I OATA 170.190.190.190.190.190.170.170 

11262 OATA 299.299.299.299.293,239.293.293 

11263 OATA 0.20.299.293.299.239.20.0 
11270 RETURN 

12000 DATA 33,44.0.44,90.0.90.36.67,36.67,96.44.0.33.44.0,44 
12100 OATA 44,0.0.33.31,33.37.37.33.0.0.0,42.42.44 
30000 REM •••• INS TRUKTION •••• 

30010 PR I NT** CLR » * IPR INT CHR6< 14) 

30020 PRINT* OCLKOVRCM TIL /TRMM l • 

30030 PRINT 

30040 PRINT* /ERM ER FARCT VlLO I ET SLOT, 00 
30042 PR INT*V IL H JEN. BTYR /ERM TIL KN SVAff* , SAA 
30044 PR I NT-HAN KAN MOLOC SIO STAERK PAA REJSCN. * 

30046 PR I NT *“F TER OU HAR SPIST 9 SVAPTE. KAN- 

30047 PR I NT "/CRN OAA UO AF NOOLE MULLER SOM *OHE* * 

30048 PR|NT-NM»R OU HAR SPIST SVAPTEfC . < CRSR f*0>TRVK EN TAST.-IPOKE 196,0 
IM4IT 198.1 

30049 PR INT*< CLR >-U SKAL STYRC /ERM I0CK2CM II RUM, FOR* 

30090 PRINT-MAN MAAR HJEM. STARTER f«0 4 LIV. IVIS* 

30060 PRINT-OU RORER NOGEN TING OM SVANPEK . VIL DU* 

30061 PRINT-MISTC ET LIV.* 

30062 PRINT* TOPPEN AF SKACR-CN VIL SC ORE N’ 

30063 PRINT*VACRE . OO HVAO RUM /ERM ER I.MVOR* 

30064 PRINT--44N0C 8VAIPE /ERM SKAL SPISC. U€>CN - 
30069 PRINT-EXIT KOPTER FREM.OO HVOR MANOC LIV /ERM" 

30066 PRINT-HAR TIL8AGE - L06CNDC 1 LIV.* 

30067 PRINT--U F AAR IOO POINTS. PLUS BONUS SP ILLCR , * 

30066 PR INT-FOR HVER 8VA**» DU SPISER./ERM FAAR • 

30069 PRINT-ET BONUS LIV EFTER AT HOME IOEHEM DC * 

30070 PRINT-FORSTE 2 8*NR • ET FOR HVER 3 RUM- 

30071 PRINT-OCRCFTER.* 

30200 PRINT-* CRSR ►EO'TRYK FIRE' FOR AT ST ARTE* 

30210 S-PCCK* 96320 »AH) I6HF 8-0 THEN PRINT CHRP* 142'iRETURN 
30220 OOTO 30210 


2. grads 3 
ligninger 

Dette program kan lose 2. N6r disse tre tal er indtastet be- 
grads ligninger. Dei vil sige regnercomputerentoppunkt, t 


ligninger af iormen: 

AX 2 + BX+C = B 

Alt, hvad programmet beder 
om, er A.BogC. 


diskriminant og selvlolgelig 
roddeme. Programmet er vel- 
egnet tor 10. klasse i folkesko- 
len eller 1. G'ere.D 

Marlin Pedersen 


1 POKE 93280.0 POKE 53281,10:PRINT"(CLR 
* SORT > •• 

3 PRINT"<CRSR ME I ' > DETTE ER ET PROORflM T 
Il_ L0SNINO" 

T PRINT"RF RNDENORFIDSL I ON I NOER " 

10 I NPUT *• < CRSR NED)HVflD ER R. fi. C " . R . B 
p C 

13 IF R-0 THEM PR1MT"MUSK RT R IKKE MRR 
VRERE LIG MED NUL!" FOR P—1 TO 1000 
MEXT:RUM 
20 D — B T2- < 4*Rl6C> 

23 PRINT 

30 I V D<0 TMEM OOTO 33 

-»0 IE D —0 THEM OOTO 7*0 

30 IF D>0 THEM OOTO ©0 

1 33 PR I MT " D I SKR I M I MRMTEM VRR MEORTIV, " 
60 PR I MT ** DERF i >R ER DER I MOEM L0SM I MOER ** 

•OOTO 110 
7^0 E — R*2 >«* — 1 

T’S PRINT "DER ER EM L0SMING, MEMLIO " ;E 
:OOTO 110 

90 F-(-B + Dt.t.VR/2 

00 O—<—B—DT.3)/R/2 

100 PRINT"DER ER TO L0SMIMGER. MEMLIO " 
F" OO "O 

110 PRINT"<CRSR MED > DISKRIMIMRMTEM VRR 
I8VRIOT = ” 7 D OOTO 120 
120 O——B^2 
130 H= — D^-»^'R 

1-S0 PR I MT " < CRSR MED > T OPPUMKTET TIL RMDE 
MORRDSPOLVMOMIET" 

1 60 PR I NT "EOF DEMME L I OM I MO ER X— " : O : : P 
R I MT " V— " .. H 

1 T' 0 PR INT" < CRSR ME D > FLERE RMDEMGRRDSL I O 
MIMOER <J^M>" 

175 OET J* IF -J*—" "THEM 17‘. 

1©0 IF JS=""THEN OOTO 170 
IS*© IF J*»"J"THEM RUM 

200 FOR F =1 TO 3 • RERD R POKE 630*F. R : ME 
XT : POKE 138- 3 

210 DRTR 82.35.78 

57891 IF J*-"M"THEH POKE 53280. 1 POKE 
5328 1 . f> PR I MT " < CL-R • HV ID)" • STOP • END 
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Med dette program tdr du et 
omdelineret lunktionstaster- 
ne. Det giver lolgende nye 
tunktioner: 


FI: Directory (bibliotek pd 
disk). 


F2: Hires copy (kopiering at 
hojoploselig skcerm. Men 
kun pd printene MPS802. 
4023 og 1526). Der bliver 
spurgt om bitmapadresse. 

F3: Autolinie nummerering 
Fortscetter med efterfol- 
gende linienumer efter 
sidste linie i programmet 


Der er step mellem linie- 
numrene pd 10. Dette kan 
rettes ved POKE37842. 
step. 

F4: Screen hardcopy. Kopie¬ 
ring at skcermen (normal 
skcerm) til printer. 

F5; Status - Diskettens lejlka- 
nal aflceses og skrives ud. 


F6: Dump. Udskriver variabel- 
navne og vcerdi. Dog ikke 
i dimensionerede variab¬ 
le 

F7: Merge. Bruges til at sam- 
menkcede Here program¬ 
mer, men virker kun i 
praksis hvis det sidste 
program har de hojeste li- 
nienumre. 


1 o 

R-FM 

♦ ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


REM 

♦ 


♦ 


REM 

♦ 

TOOL.— 1 • e -* 

♦ 

40 

RFM 

♦ 


♦ 


RFM 

♦ COPVRIOHT 1PV 


F-O 

RFM 

♦ 


♦ 

7-*^ 

RFM 

♦ 

F«r*F SOFTUORE 

♦ 

FSO 

RFM 

♦ 


♦ 


RFM 

♦ ♦ ♦ 




RFM 




1 

RFM 

F 1 

- PIRECTORV 



RFM 

F2 

- HIRE© HRPPCOPV <C 

40 


REM 

F3 

- RllTOMliMBFP 



REM 

F-4 

— SCREEN HRRDCOPV 



RFM 

F-5 

— FE JLKflNRl 


!?«S 

RFM 

F *-• 

- DUMP 



RFM 

F7 

- MERGE 



REM 

F8 

— UNNEUJ 


S**5» 

F*EM 




1 RERD X 

IF X——1 THEN 130 



R — R-» 1 


©—©-•-X 


noiR 


1 1 O POKE 36864*H.X 
120 GOTO 1OO 

130 IF 80187111 THEM PR INT"FEJL 
":PRINT"<CRSR NED1PIFFERENCEH 
:"iS-187111ENB 

140 PRINT"<CLR,CRSR NED2.CRSR H0IPE2•PR 
Tfi OK f ! " 

130 PP I MT •• < CRSE (IED,3PRCE2>SVS 06864 

START TOOL 184" _ ___ 

160 PRIHT"<CRSP MED,SPHCE2 ■MEM SAVE FOE 
RST ! > •' 

1 7-0 END 

32000 DRTfi 32,68,22L162.0.103,213.146, 
32,210, 233,232,20 1 , O. 203 • 245,32.21 ■ 144 
3200 1 DRTR 36,36 , 160, 32 , ISO , 1 44 -14 1.1 43 
,2,1 -40 , 144,2,36 , 1 62,6,220,203.2-40.0.202 

32002 DRTR 224,2.208,247,76,77.233,228. 
1 97, 2*40,2*40 , 1 3-4 , 1 97 . 1 7-3 , 1-41,2.20 1 • 1,200 

32003 PATH 4.232,232,232,232,216,169.0, 

,3,2*40,0,2-4 , 1 03,0,202 , 22*4,3,200 • 2*40 

32004 DRTR 1 70 , 1 60 ■ 0 ■ 200 • 1 0? - 1 02 , 1 -4-4 . 1 3 
3 , 118,2, 201 , 13,2*40.3,232 , 102,0.40,2-40 , 

1 32 

32003 DRTR 100,76,66.233.03.00,03,31-33 

, 37" , S3 • 3-4 , 13,03,00,03,31. S3,32.30.37* , 1 3 
32006 DRTR @3,00,03,31,53,3-4.37,40.13,0 

3, 00, @3,3 1,33, S3, 3 1,37- .13. @3,00- 03,31 . 

33 

32007* DRTR 3-4,31,36 ,13, ©3,00 , ©3,31 ■ 53 . -4 
8-31,37,44, @3 , @0 , 03,31.36.31.3-4.51 - 13, 

@3 

32000 DRTR 00 • 03.31 ■ 56 . -40.5-4.36 .13.253 . 

1 63 ■ 1 • 7*2 - 1 60 • 33.1 33 ,1,1 60 . 1 2-4 . 1 62 - -4 1 60 

32OO0 DRTR O • 1 32 • 23 1 • 1 32,252 . 1 -40 . l 67 - 2 • 
140 , 1 7*6.2.1 -40.1 7*7* , 2.140. 1 7*@ • 2 • 1 40 - 1.0-2 

32010 DRTR 140.1©O.2,140.125.2.140-101• 

2.32.106,253.15232.1©0.235.32.182.233 

32011 DRTR 160•125,162.4.160.5,32.1@6.2 

35,32,102,253,160,126•162.4.160,6,32, 

1 @6 

32012 DRTR 233,32• 102,253.1©2.12© . 32 - 20 
1.233 , 1 ©0,21,32,210,233.32.20.4,235.32 . 

32013 1 DRTR O,201,44,200.20•32,115,0,32, 
1 30 , 1 7*3 , 32,747 , 1 03.1 ©3 - 20.1 ©4 ■ 2 1 • 1 33 , 

25 1 

320 1 4 DRTR 1 32,232,24 ,144.24 , 1 7*3 - O . 22 1 , 

7*3 • 233,41,9 , 24 , 1 06 , 1 06.1 OG , 1 33,252 , 1 7*3 

32013 DRTR 24,200.41.©.10.10.3,232-133. 
252,32,10©,145,162,123.32,201,233,162,0 

320 16 DRTH 1 GO , O , 1 @0.1 67* . 2,240.1 - 200.32 

,210,233,232,224,©.20©,242.32.204,235, 

32017* DRTR 124,32,201,233, 102.0,240, 18, 

1 7*4 , 173.2,240,0,1 ©0,32 , 32,210.253.202 - 

320?© S DRTR 24@,160,234,32,210,233,238,1 
73,2,173, 173,2,201, 40 ,20©, 13,23©, 1©1 - 2 
32010 DRTR 1©0, O- 14 1.175.2,160,13, S3 • 37 


,33,44 , ©3,©0,©3.32- 32,204,233, 1©3,231 . 

24 

32020 DRTR 180, 176,2, 133, 2'M . 144,2,230, 
232 . 1 73 , 181.2,20 1.23 - 20© - 1 30 , 1 ©2 , 1 26 . 

1 04 

32021 DRTR 133.1.32,201.233,163,36,32,2 

1 O , 233,32 , 204,233 , 1 ©0 , 1 2-» , 32 , 1 03,233 , 

32022'DRTR 123.32,103.233.160.126,32,10 
3• 233 - 06, 160,O, 14 1,176,2.160.O 141,17© 

32023 DRTR . 240 , ©0,200 , 1 © , 1 73 , 1 7© , 2 , 17 

2 ■ 17©,2,133. 1©7,2- 200. 140, 17©.2.102. ©, 

20© 

32024 DRTR 230,06,120,160,40,133,1•160. 
0,141,177,2,1©0.1,20©,33.172,177,2,177 

32023 DRTR 231,43,170.2,240,10.173.17©, 
2,24. 1O0, 1©O,2,141,17©- 2,200- 140. 177,2 

32026 DRTR 102,8,208,224,160.35,133,1.8 
©, 200 - 100, 160.1,72, 170 • 160,7,3©, 233, 176 

32027 DRTR 2,240,7,170,132,10 202,20©.2 

32 1©0,104.170.132,137,170,2,224.1,20© 

32020 DRTR 13©,240,10O,0©,1©0,36•133■23 
1.160,231.133•107.1©0.0,133,100,1©0•1. 

1 33 

32020 DRTR 1©3,160,©,133.106•1©0,06.133 
,103•32,213,243,163,18©.32.1©0•233.165 

32030 DRTR 183,32.130,233.169,0.133,144 
,1©O.3,132■231,32,163.233,133,232.164. 

1 44 

32031 DRTR 288.38,32,163.235,164,144.20 
© • 43 , 1 ©4 - 23 1 . 1 3© - 20© , 233.1 6© • 232,32.205 

32032 DRTR 189,160,32.32.210•255,32.165 
.233.16©•144.20©,23,170,240.3,32.210. 

233 

32033 DRTR 200.241,160,13,32,210,235.32 
, 22© • 233,20© . 3,334 . 1 ©O . 2.200 , 1 03.32 ■ 6© 

32034 DRTR 24©.0©.160.0-133,144.1©0.1.1 
©2.8-160.111,32,1©6,753,160,O.32.1©0. 

233 

32035 DRTR 32•102,253.1©0.©.32•1©o.255. 
1 ©0.111.32 ■ 150.233 ■ 32• 1©3.233• 32.210. 


3203- DRTR 3©•144.©O,24©,1©0•©.32. 
33 . 1 © 0 . 1 . 32 , 105 . 253 • 0 ©• 17 . 17 . 32 . 32 . 

42 


1 7 1 

32 ■ 


32037 DRTR 32 ■ 04.70 - 70 • 7© .- 32.40.5© . 52.2 
2•42^13.17-32,32,32■©6•©0■32•©3■©4•©5. 

320.3© DRTR ©0.32 ■ ©3.70.70 - ©4 . ©7 • ©5 . ©2 - « 
0.13, 13-0.0.0©, 0©.2.2.1©o . 3.200 I 77.43 

32030 DRTR 20©.231.200.200.152.I©O.o.14 
5.43.1©3•44.200.143.43,133.©O•1©O.0.132 

32040 DRTR 50, 1©2 ■ O - 200.20©.2,2 O . ©O . 1 7 
7•50,20©,243.232.224,3.20©.242.200.208 

32041 DRTR 2,230■©O,132•45.1©4.©O.132.4 
©.06,160.O•141,©0.147,141,70■147,240.4 

32042 DRTR 130 . O- 73.8,1 6©,45, 1 42.71 • 147 

, 16©,4© - 142.72, 147- 1©0• 03.14 1,2 3.1©0 ■ 

1 47 

32043 DRTR 14 1.3.3.1©6. 13.23© -71.147.20 
8.20.16©.4©.23©.72,147.20©.13.174.60, 

147 

32044 DRTR 20©.3.174.70.147,240,3,76•25 
4. 147 - 1©6,45, 142, 71,147 - 1©6,4©, 142.72, 

147 

32043 DRTR 16©, 45.202,202,22© - 43.20©■ ©. 
1©6,4©.22©,44,240 ©l-l6©•43,134,231,134 

3204© DRTR 20.16©.44,134,252,134.21,1©O 
,0,177,231,20©, 20 • 200 - 177.251 . 20© .13. 

200 

32047 DRTR 177,20, 14 1, ©0 - 1 47,200.1 77 - 20 
.141,70.147.7©,203.147-1©5,231,133,20, 

1 S3 

3204© DRTR 252, 133,21,1©O, 0 - 177,231 ■ 170 
.200,177,231,134.231,133.232,76•15©.147 

32040 DRTR 173,©0,147.24.103.10.141,©0, 
147,173,70,147,105,0,141,70,147,174.©0 
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COMMO 
DO RE 
64 



32030 DflTfi 147.32,203.1S3.1K9.3 ! .32.210 
. 2!3!3 , 1 60 , © , 1 77 ■ Z99 ■ 1 313 . 1 19, S ,230 • 1 90 • 

200 

320311 DRTR 136.211.200.244.169.0. 133.21 
1 , T© , 131.1 6-* . 1 613.131.1 .» I,2.3.1 69 , 1 ©-» • 

14 1 

320312 ORTR 3,3,76. 131,164,0, 163.43,24.1 
pin .4.1 33,2313 , 1 635,44,1 031.0.1 33 • 2314.1 60.0 

320313 DRTR 1 77,253,240 , © . 200 ■ 1 32 • ©© ■ 20© 
, 247, 26, ©, 125.200 • 152. 160 • 0 • 24.10 1,253 

32054 DRTR 145,43.133,253,144.2.230.254 
, 1 65,254,200 , 1 45- , 43 , 1 36 , 1 22.253 , 1 20.200 

32055 DRTR 122.253,240.2.133.254.134.25 
3,56,126•240.165,253,84,105.2.133.45. 

1 65 

32056 DRTR 254.32.©5,166.36•16©.255.133 
,2,165,43,201,1,20©,13.133.251•165.44. 

20 i 

32052 DRTR 9.208.37 133.2f52,36.1 . 2? • 16 

5 • 25 1 . 1 33 • 43 . 1 35 . 23? . 1 33 . 44 • 1 €2 • O . 1 89 . 

32050 ' DRTR 1 43 . 240 • 3 • 32 . 22 - 23 1 • 232.203 • 
245. 93 . 2-4 . 1 60 . O . 1 7-7-7 43 • 2RR 12.20" . 1 22 • 

43 

92039 DRTR 200.7- . 200 • 1 7-7- . 43.2RR .2*1 33.2 
. 290.43.209.2 > 290 . 44 • 1 35.2 • 203 ■ 223 • 1 <52 

92060 DRTR O • 1 P9 • 1 23 . 1 43 . 940 • 4= • 32.22.23 
1.232 • 200.245.93 . 13. 13.32 7 32.32 . 32 • 92 . 

32 


92R6 1 DRTR. 32 • 32.32.32 ■ 77.69 . P? .21. *93.3 
2 • 65.25 • 04.23 • 33 . .“3.32 . 39.34.32.33.33 . 

32 

32R67 DRTR 32.32 • 32 • 32.32.32 • 32 • 32 • 32 - 3 

2 • 32 • 32.19.0.0.0.0,0,0,0, 1 : . i : . :2 . . 32 

97069 DR I R 32 • 32 ■ 32 • 32 • 32 • 32 ■ 32 • 22 • 39 ■ R 
2.21- 69 , 32 , RO .. 35 . R9 . s=i3.23 . 03 . 23.03 . 39 • 

02 

320*54 DRTR 69 • 04 • 32 . 33.33 • 32 7 32 • 32 • 32 • 3 
2 • 32.32 • 32»32 ■ 32 ■ 32 • 13.R.R.R.R.R.R.R.R 
320*55 DRTR 1 *55.4-I . 1 34 • 4*0 . 1 39.20 . 1 32.21. 
1 3*5.43,203.2.1 92.42.1 2*5.24 . 1 0*5.2. 14 4 i 
320*5*5 DRTR 200 , 1 33 ■ 34.1 32.35 • 32 • 94 1 49 . 

32. 1 43 . 1 49 .. 1 33.13-2.32 . 1 55 . 23 • 22. 

1 49 

32032 DRTR 93. 152 • 43.3 • 32 .12 1-149 • 2» ■ • 22 
. 149.32. 130 7 149 • 139.13 . 32.210.255.1 35 . 

20 

32033 DRTR 134 -21.24 • 105.2-1 44. 193 7 200 . 

123 7 190.130. O . 1 22.20.1 20 41, I 22 • 32.210 

32039 DRTR 255•200.122.20.133.41.122.24 
0-37 32.210.255 • 1 33.13.12.1 “12 - 43 10.1 39 

32020 DRTR 33 7 32.210.25—. . 1 04 1 04 - 23 - 22 . 

1 49 .. 1 39 . 32.203.23 . 1 52 • 13 4. 1 39.93.203 . 

2 1 

3202 1 DRTR 93. 32.210.255 - 139• 32 • 32-213- 
255.139.31.203.53.130 O.122■94.120•900 

32022 DRTR 122.34.133.133.32• 149 .1 29 - 23 
.1 24 .1 49 . 32 . 133 .1 32 . 32 . 221 •1 39 . 23 . 30 • 

12 1 

32023 DRTR 32.211•149.130 2.122.34•199. 

32 . 1 33 . 1 22 . 34 . 1 33.33.1 33.1 22.34.1 99.90 

32024 DRTR 240 . 1 O . 1 22 ■ 33 - 32.210.255 . 200 
. 193.33.20© . 24 6 • t 39 • 34 • 23.210- 255.0.0.0 

32025 DRTR 1 39.4.1 39.1 03.1 33 -114.1 39 . 1 .9 
3. 133 • 134.139.0.1 33.119.1 33 - 1 33. 1 99 . l 35 

32023 DRTR 32 • 1 92 * 255 • 1 33 . j 04 .97.20 1 . 95 
5 . 1 32.25 . 1 39 .13.32.210.2515. 0 ? - 225 • 25—. . 
240 

32022 DRTR 43•130.0.122.119.193•103.41. 

33 .. 3 . 1 03.33 . 1 03 • 13.2.9. 1 29 - 1 12-2-9. 34 . 

32 

32023 DRTR 210.355•200.192.40.209.990.1 

52.24 . IOI. 113- t 33 119.1 44 -2-2 'O | 14 .2* '2 

32029 DRTR 200.205. . 1 39.19.99 • 9 1 O . 95—. . 99 
. 204.255.1 39 .1 93.23 .1 O—. . 255 . 1 


F8: Unnew. Henter et NEW'ET 
program tilbage. Men 
kun. hvis der ikke er tastet 
et nyt linienummer ind. 
Kort sagt. nogle praktiske 
tunktioner, som de fleste kan 
have glcBde at. Det er besvce- 
ret vcerd at taste det lange 
program ind. Du bliver posi- 
tivt overrasketD 

Jens Stage 
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Ei du lnleresseiel i malemcitik. 
sd har du olte biug lor al kun- 
ne lave en gialisk albildrung 
al en lunktion og del lager 
lid, selv med en piogrammer- 
bar regnemaskine For al spa¬ 
re lid, er lelgende 'Funktlons- 
legne program ' udviklet Ill 
BBC compuleren, model B, el- 
ler A med 32K RAM 
Nceslen alle lunklloner kan 
tegnes Del enesle. compute- 
ren skal kende, er lunktions- 
udtrykkel, I eks ' SINX eller 




F<X>*AIS<S+X> 


nogel Ugnende, saml den lar- 
ve compuleren skal legne 
gralen med Heretter bllver 
lunklionen ' SIN X " legne! 1 el 
koordinatsystem Selve pro¬ 
gramme! bestdr cd to dele. - e! 
line indledningsprogram 
hvorl instrukttoneme sldr, 
saml hovedprogrammel 
Farsi indlasles del lllle pro¬ 
gram, tor dereiter a! blive SA¬ 
VE! Deretler Indlasles hoved¬ 
programmel Hovedpro¬ 
grammel skal sd SAVE s ind 


pd bdndet lige elter del lille 
program 

Del kan i evngt vcere nodven- 
digl i del store program al for- 
korte udtrykkene i nogle al 11- 
nleme I eks "P i stedel lor 
PRINT' Gar man Ikke dette 
kan del knibe med al presse 
alle udtrykkene sammen 1 en 
enkell llnle Ndi du skal kore 
programmel. skal du bare 
CHAlN'e del lllle program, og 
sd gdr resten al sll selv .□ 

Steen Nielsen 


3<X>=S4«<X> 


K<x>=-sa«<x> 


C<X)=-*BS<6*X> 


I<X>=-<X«t> , 


lOOREM Instructlon»r •••• 

1 IOMODE 7 

I20AX-1:pkocmovcd:ax-o 

130PRINTTABI3.IO)ICMNBI31I’STOP VCNLIQ 8 T BA AH OOP T AOCRCN. • 

I40PR0CM0VED 

ISOPRINTTAB(11,7) ICHMB131 I * IM 8 TRUKTIONCR1• 

100 P " ,MT ' CMRRI 301 *Datta program ban Obi Id* an MlM«t l ah • CMWI 301 *t unk t i on | 
• t koordlnatiyitn. • 

* 70PRIHT | CMP* | 301 *M*n taat.r «,.p*ltn.n tunkt.on.n Ind * * CHMdl 301 *nur proar*. 
WO»ri#r *n m d*t.*'CHRBI301*Cn ...d.n tunktlon kunn* t.*k* v ._ r . *i rta**l 

ISOPRlNT|CMR*129| *Dat tnMlt Mn dkal huilt ar. at • ICHMI 29| < M n mho aha I Ind 
Mn r..t.n-|CHH*m-ai lunktlonan ahal aaIvto*Is*I IS -iCHMIZfl'Ind 
IPOPROCMOVBD 

200PRI NT * CHRa 1341 ‘Near co-pu«.r*n *r l.trdi, —d at ItfN' ICHRBI 34 |-funht lon.r 
n*, ahal -an til at n.vnslva • I CHMI 341*tunht lon.rnt. 0 *tt* torasaar v*d at Mn- 
ICHKai341* —*4 cursor-taaltrn* «lyttar an I I I la* * ICMRBI341*prIh runflt paa*I 

210PRINT|CHR*134|*.kaar»*n indtll -an har •IChhci 341•fundat dat ratta atad udt 
or dan paa- • ’ CMRai 341 *<)»• I d and a tunhtlon. Haraltar tryhhar •• |CMMI34| --an paa'i 
CHR*13A|*RCTURN*|CHRai37|*os co—putaran ahriwar-•|CMR*I34|‘na.nat.• 

220PR0CMOVED 

230 PRINT I imp* i 301 * T I I Maalp til at soar* danna procaa* * I CMRBI301 * I at tar a tin 
da* dar to t ac I I I tar J • TAB 141 | CM—I 31|*SMIF T-TABTCN*| CMWi 301 *os* 1 TAB 1 41| CMRai 31 , 
•CTRL-TABTiN*|CMROl30l*Mvl. -an holdar 8 MIPT nada Mn. Mn- 
240PRINT|CMRBI30I‘tlyttar rundt —*d * I 

230PRINT1CMRB130I-prihhan. da »Iyttar••ICMR«|301-pr 1 hhan al* 4 sans* hurtlstra 

2 AOPRINT* I0HRSI3OI-Hvl* -an noldar CTRL nada. da ho-Mr - • | CHRSI301 *dar an ahat 

#l tor dan * oar at a prih. Da. . 

MRSI30I aldata prIh indlharar, nvor dan ud -••1 CMP.I 301‘ahravna tah.t vll-| 

270PRINTICMROI30I-ho—a til at alutta, -I CMR»| 301 -paa dan -aada kan -an undsaa 
, at oada--<ICMRSI30I*laass* S'«‘»'na.- 
20OPROCMOVED 

2VOPRINTTABI1.IO)ICMR.I79|-START VC ML I OS T SAAMOOPTAOCRCN IO«N.* 

30OVDU2R,13,20,27,17 
310CMAIN-0RAFER* 

32OCN0 

330DEPPR0CMOVED 

340IFAX-ITMBN370 SLSCPRINTTAB 14,23»ICMRBI33lCMRBI3AI•Tryh paa -a I Ia-ru..-taata 


340IFAX-ITMCN370 BLSEPRINTTAB14.23»ICMRB1331CMRBI3AI-Tryh paa Mllasr.-a-taata 

330 AB-OCTaiIPAB-* * TMEN3AO ELBE330 
3AOCLS 

3/OPRINT TABIO. I » ICMMBI32lCMNai4l I C MRa I 3 7 | C MR. | 3 I I ‘ORAMSK At B 1 L DM I MO AT FUNKTI 
ONER *ICMHaiSA 

SBOTMt IMTTA,10,21 I CHR,I 321 CMK, I 411 t*tl S2| CMWB I 311 “O***! 1 1 8K «. Ila >l| 

ONE R * I CMRa 13A 

390PRINT TAB I I 7,3)CMRBI 341 *At • 

400PRINT TAB 111,41 ICMRai331CMRai3AI-Staan Nia I.an*|TAB<IA.31 ICMRBI301 * 190S* 


IOONCRRORPROC ERROR 

20VDU23,234,233.233,233,233,233,233.233.233 

30M0DCI 

4OWX-0:VTX-1 

SOVDU4:PROCINDTA8T 

AOVTB-O:COLOURS 

70F0RA-ITOWX:CXIAI-BXlAIINEXTA 

80IPWX-I >Ht NBX-HXIWX > :OOTOIIO ELSCFORA-ITOWX-I:»ORB-A•ITOWX 
90IFCXIA)>CtlBI TMCNMJ-CXIAIICXIAI-CXIBI:CXIB)-MJ 
IOONCXTB.A!BX-CX<MX) 

1IOCLB 

I20VDU29,01OlIOCOLO,3 

I 30MOVEA40,28 DRAWA40 , 1020: MOVE 32.31 2! DRAWI 280.31 2 

140VDU29.A40I312I:O-FNRUND«Al8/«BX/IBX/,Ol.I:F0RXX-0T0420STCP0:NOVCXX.O:DRAMXX 

.-b:ncxtxx:noveo,o:forxx-oto-a208tcp-o:novcxx.o:drawxx.-8:nextxx 

1SOOCOLO.3:NOVEA38.OIDRAWA2A.12:MOVEA38.O:DRAMA2A.12:NOVEO.312:DRAW- 14.494:MO 
VE0.312:DRAWIA,496 

1A0N0VE0.0:M-FNRUNDI490/CBX/IBX/IOI I I I FURYV—0T0492STEPM:NOVEO,w:DRAWS rt:NEXT 

yy:NOVEO.o:foryy-oto-4928tcp-m:NOVEO.yy:draw8.yy:nextvy:noveo.o 

170 om-fnrondio/21:forxx-om toa20Btepo:novexx.o:drawxk,-4:ncxtxx:noveo,o:forxx 
■-OM T0-A208TEP-0:N0VCXX,0:DRAWXX,-4:ncxtxx 

18onoveo.o:mo-fnrund<m/2»:forvy-ho to492STepm:novco.yy:draw4,yy:nextyy:noveo.o 
:FORTY--MO T0-4S28TEP-M:NOVEO.yy:draw4,yy:ncxtyy:NOVEO. o 

19000-40:MM-48 

200VDU4 

2100-1 

220X-X1IOI 

230Y-EVAL <B8(0> I 

240N0VEX1 101*100/ IBX/IOII,Yd I MM/IBX/101 I:AS-1OO/«BX/IOI>:BS-AB/4:AB-I/BS:C8-IO 
0/IBX/IOII/AB:B8-I(OO/IBX/10II/C8>:AB—BS 
2SOX-X1IO) 

2AOY-CVALIBBIOII 

270IFY >BX ORY<-BXTMENA—4 ELSEA-I 

2BOOCOLO,AX(01 :DRAWX*IOO/IBX/101 I.Yd IMM/IBX/IOII:IFX<X2<OlTMENX-X.AdAB:0OT02A0 
29O0X-O 

300IF0>—WXTMEN310 ELSEO-O*1:00T0220 

31OV0U3:A-BX/lo:B-AdOO:P>I <LENIBTRaIAl Id32l/21:FORM-1 TOlLEM ISTRaIAlI I:MOVE IB-P 
I ,-20:OCOLO.O:PRINTCMRa234| :B-B*32:NEXTN:B-AdOO:MOVE IB-P) . -20:OCOLO.3:PRINTA I 
320D-1A:A-BX/lo:B-A*IMM/IBX/1011 :FORM-1 TO ILEN(BTRaIA) I I:MOVED,B*12:OCOLO.O:PRI 
NTCHR02S4I :D-D*32:NEXTN:D-IA:MOVED,B*I 2:OCOLO,3:PRINTAI 
330BX-2314 

3400COL0.3:0-IA1B/<BX/CBX/3) I I/2:O-FNRUNDIOI:M-I 492/IBX/IBX/Sl I I/2:M-FNRUND1MI 
:F0RV-0T0-6208TEP-G 
330F0RVV—0TO4928TEPM 
3AOPLOTA9,V,VV:HEX TVV,V 

370FORV-OTO-A2OSTEP-0: FORW—OTO-4V2STEP-M: PLOTA9, V, W: NCXTW, V 
380F0RV-0T0A20STEPQ: F0RVV-0T0492STEPM: PLOT69, V. W: NEXTW, V 
390F0RV-0T0620STEP0: FORVV-OTO-492STEP-M: PLOTA9, V, VV: NCXTW, V 
40OPROC8KRXVE 

410VDU4.30:PRINT-BLOT? C 3 /Nl •|:Aa-OETa: IFAa-- J -TMENCND ELBE IFAa—"N"TMEN30 ELSE 
410 

420DEFPR0CSTRI Dai 
430F0RC-0T039:BX1C I-O:NEXTC 
440FORC-1TOLENI DaI 
430 va-MiDaiDa,c,lI 
4A08XICI-A8Civai:NEXTC 


470CNDPR0C 
480DEFPROCERROR 

i tL BE I FERR. I 8ANDERL -2AO ORE RR-i 1 ANDERL - 

Rl — I 730TMEM300"ELSC310 L ""-ZOANDERL-280TMENX-X*AS:00T02A0 ELBEIFERR-22ANDE 

SOOCLBIPRINTTABIO.II.-Nan kan ,hk. D.r.,n. lo,.r,t.an tor at n.,atlvt t.| *,.* 

r 0 --:foraa-0T030OO:nextaa:cls:0OT0I020 * 

51 OREPORT:PRINT * at I Ina *ierl:cnd V 

320DCFFNRUNDINI 

3—ODEr PROC SKR1 Vf 
330XYX-4:VXX-4 
3AOFORD-ITOWX:VDU4 
970WIDTMI 

380tta-CMRa I D* A9 It-IXI — - • B* I D I 
990ZX—ILCNIN8ld32l*IA 

AOOVDU4:PRINTTABIO,OII :PRI NT TAB IOIIBTRINOBI13,* *) :PRINTTABIO,OI I 
aiOIFLENlNai'29TMENA20 ELSEPRINT•!Ba,D) 

A20WIDTM0 
A30VDU3.29,0101 

A40XX-XYX:yx-yxx: xxx-o: yyx-o:repeat: ux-o: kx-o:lx-o:owx-o 
A309FK13.0 

AAOIFINRCYI-38. TMENUX-I:OWX-4 

A?0IF|N»BYI-42 > TMCNOX—21OWX-4 

ABOIFINNC V <- 7AIT ME NOX— 3:OWX“4 

A90IFINREYI-122)THENOX-4:OWX-4 

7001F1NREYI-381 AND1NKEYI -2A» TMENOX-3:OWX-4 

7101F|NREYI -38 I ANDINKEYI - 122. TMENUX-A IOWX-4 

?20|F|NkCYI-42lANDINXCYI-2A)TMENUX-7:WWX-4 

730IFINREYI-42)ANDINREYI -I 22ITMENUX-8:WWX-4 

740IF1NKEYI-I I T ME NOWX-IA 

730IF INPEYI -21TMENLXX—I CLBELKX-0 

u '*° , ^‘-R»-ITMENOCOLI . 3:PLOTA9.xX*2X. VX: for I-0T0300: NEXT I : 0C0L2. O: PLOT A?. XX* Z%, Y 

770IFOX—OTMCN8AO 

7BOIFUX-IANDPOINT1XX,YX-WWX) >OTMCN:KX-O:LX-OWX ELBE IFUX-2ANDP01NT I XX.YX-OWXI >0 
THE Nkx-o:LX--OWX ELBE IFUX-3ANDPOINTI XX -OWX,YXI >0TMBNKX--OWX:LX-O ELSE IFUX-4ANDPO 
INTI XX*OWX,YXI >OTMCN»X-OWX:LX-O 

790IFUX-3ANDPOINTIXX-OWX.YX.OWXI IOTMENKX--OWX:LX-OWX ELBE IFOX-AANDPOINT I XX•OWX 
.YX•OWX) >OTMENKX-OWX:LX-OWX ELSE IFUX-7ANDP01NT I XX-OWX,YX-OWX) >OTMENKX--OWX:LX--O 
WX ELBEIFUX-8ANDPOINT(XXtOWX.YX-OWX)>OTMENKX-OWX:LX--OWX 
800IFKX<>OORLX<>0 TMEN8I0 ELSC820 

8iop-o:xxx-xx:vyx-yx:repeat: xxx-xxx*xx: yyx-yyx*lx:ifpointixxx,yvxi<*otmenp-i: o 
COL2,o:PLOTA9.XX,VX:xx-xxx:VX-VYX:ONTILP-1:OOTOBdO ELBEONTILP-I:00T0040 
e?00C0L2,0:PL0TA9,XX,VX 

830IFUX-|TMCNYX-YX*0WX ELSE IFOX-2TMENYX-VX-OWX ELBEIFOX-3 TMENXX-XX-OWX ELBE IF 
UX-4 TMENXX—XX*OWX ELBEIFUX-3TMENXX-XX-OWX:YX-YX•OWX ELBE IFOX-ATMCNXX-XX*OWX:YX- 
YX.OVX ELBE I?VX— 7TMENXX—XX-OWX ! YX-YX-OWX ELSE IFOX-8TMENXX-XX•OWX:YX-YX-OWX 
840IFKX< >OORLX<>OTMCNMOVEXX.YX ELBEIFKX-OORLX-OTMENOCOLO,3!PLOTA9,XX.YX 
8900COLO,3:PLOTA9.XX.YX 
03399X13.0 
8AOUNTILINKEYI-74I 

870OC0L7.0:PLOTA9,XX,YX:xvx-xx:VXX-YX 

8808X-0 

890N0VE XX,YX:OCOLO,3:PRINTIMd 
900BX-23I4 

9|OFORT-1T0300:NEXTT,D 

920VD04:WIDTM1 :VDU30:PRINTTABIO) I8TRINO*< 29, • •» IWIDTMO 

93099X13,0 

940ENDPR0C 

930DCFPROCINDTABT 

9AOCLS 

970VDU19,1,210119,2,6101 

9BOIFYTX-1TMCNCOLOUR1: INPUTTABIO,1 I I -MVOR NANOE FON"TIONER",WX EL8E1010 
9901FWX< —0TMCN980 

iooodin 8X1401.oaiwxi.XIIWX).X2 IWXI.BXIWX).axiwxi.CXIWX):fora-itowx:xiiai— io:x 
2iai-io:bxiai-io:nexta 
ioiocls:print:FORA-ITOWX 
1020C0LOOR2:PRINT TAB 10,31 I'*unbtlonar:• 

I030ABX-VP08:AA-I:REPEAT:PRINTTAB•3 I ICMRaiAA*A9l I■IX I-•IB9IAA) :AA-AA*1:ONTILAA> 
WX 

10400X-VP08*1 

lOSOCOLOt^l33:COLOOR2:PRINTTABIO.ABX*IA-111|• -|CMRaiA*A9) I•IX I-•IBaIAI |8TRIN 

OaidO-POB,- * I:COLOOR128 

10A0C0L0UR3:PRINTTABII3,OX)I-For •|CMR8IA*A9)|•(XI:■ 

1070C0L0UR2:PRINTTAB10,OX*I I *B"RIV FONKTIONEN, MVI8 DET BARE SKAL••• VAERE DEN 
SAMHE SON BIDBT, BAA BKRIV •3••* I: INPOTB8 
10801FBa-*-THEN1070 ELBEIFBat>• J •TMCNBSI A)-Ba 

I090CLS:ASX-VPOS:AA-1:REPEAT:PRINTTABI 3 I ICMRBtAA*A9l | •IX I — * IBaIAA) :AA-AA*I:ONTI 
LAA >WX:COLOUR133:COLOUR2:PRINTTABIO,ABX* <A-lI I|* -|CMRaiA*A9) I •(X»-•|BaI A) I8TR 
isoai40-POS.• •I :COLOUR 128 
1IOORCPEAT 
11lOAJX-1 

I 12000X—ABX*IWX* 2) :F0RAA-0QXT020:PRINTTAB10,AA»STRINOSI 40, * * I I :NEXTAA 
11301FAX IA-1 I•3 T MENAX IAl—1 EL8EAXI A)-AX IA-11 * 1 

I140IFAXIAI—OTMENMB—-SORT- ELBE IFAX I AI-1TMENMB-*ROED’ ELBE IFAX I A)-2T MENM8--OOL * 
ELBEIFAXIAI-3TMENMa--MVID- ELBEMa--- 

Il30COLOORI:PRINT T AB13,OOX) "FARVE: a |AXIAI|- *|Mai 

1IAOCOLOOR2:PRINTTABI 31 I * FUNKT1ON8-NAROIN:*| :COLOOR3:PRINTTAB I 13> 1X1 IA) I8TRINOB 
•22-POS, -IIX2IAI:OMX-VPOS 

1170C0L0UR2:PRINTTABC31 I-KOORDINAT-SYSTEMS MARGIN: * I:COLOURS:PRINTTABI 191 IBXI A) 

:OOMX-VPOS 

1IBOIFAJX—I»MCNPRINTTABI3.23I*TILFREDS7 C3/NI-|:Aa-OETa 
1190 IF A*-• J •T MENAJX—1:ONTILA9-* J *:OOTOI230 ELSEAJX-0 

1200C0L0UR1:PRINTTAB <10,OOX) I :Aa-OETa: IFAa> — •1 * ANDAai-•3■THENAXIAI—VALIAa > ELSE 
1200 

1210C0L0UR3:PRINTTABI13.0MX-1l|I INPUT**X1 IAI:PRINTTABI 14.OMX-1 I ISTRINGBI23-P08, 

* “II TAB <13,OMX-1 I|XIIAIISTRINOaI22-P08, * *1IX2IAI |:INPUTTABI 22,OMX-1 I * *X2(Al :IF 
XIIA)>X2IAITHEN1210 

1220C0L0UR3:PRINTTABI19,GOMX-ll|:INPUT**BXIA1:IFBXIAI<-0TMEN1220 

I2SOX-X1IA):Y-EVALIBBIAI1 

1240PRINTTAB10,00X1 I:AJX-1:OOTOI120 

1230CLS:NCXTA 

12AOVDUI9, 1, HOI 19,2.3101 

1270ENDPROC 





































Kob det nye ’’hotte” 
nummer of ’’Alt om Data” 
i kiosken. Kun kr. 23,85. 


Du kan ogsa fa bragt bladet 
gratis til din bopcel. 

12 numre koster kr. 262,35. 

Ring efter et girokort pa tlf. 01-11 28 33. 





















Seikosha 
mini-printere 
leveresi 
3 udgaver: 

GP50S 

til ZX 81 
og Spectrum. 

GP 50A 

m. parallel interface 

GP 55AS 

m. serielt interface 


Tekniske data: 

Skrivemetode: Uni-ham- 
mer • Skrivehastighed: 40 
legn/sek. (GP-50S: 35 tegn / 
sek.) • Skriftstorrelse: 5x8 
punkt matrix • Antal tegn 
pr. linie: 46 (GP-50S: 32) • 
Karaktertaethed: 12 tegn 
pr. tomme • Linieafstand: 
6 eller 9 pr. tomme • Antal 
kopier 2 • Papirfremforing: 
Friktlon • Papirbredde: 
Max. 5" • Stromforsyning: 
Extern 220V, 50Hz • Di¬ 
mensioned DxBxH, 

251 x 250 x 85 mm • Vaegt: 
1,5 kg excl. netdel • Aku- 


Mini-printere til din hjemmecomputer 


Danmarks 

starkeste 

mini-pris! 


■ 

en division i CCTV CORPORATION A/S 
Nybrovej 99. 2820 Gentofle. Tlf.: 02-87 77 00 


S/fAE DO HA EN PRIHTD-R 
-5A VAKJ EH AT DE 5E/EZ 

Klassens staiTkeste! 

* Udskifteliul skrivchoved * Uni-hammcr princip 

* Selvfarvende I'aruband * God skrivekvalitet 

* I il almindcliut papir (dohbelt hojde/breddi 


Danmarks lorende leverandor i periled dalaudstyr 
- anviser nsermesle lorhandler 





